Boa tarde, teste isso(faça as devidas adequações):

Sub ImportarDados()
'Copiar dados de um worksheet para outro
        Dim wsOrigem As Worksheet
        Dim wsDestino As Worksheet
        
        'Arquivo Destino, abrimos primeiro
        'Ajuste o caminho do mesmo
        Workbooks.Open Filename:="C:Documents and SettingsoraculoMeus documentosDownloadsMaster.xls"
        
        'Arquivos e Abas de Origem e Destino - substitua aqui pelos nomes de seu workbook e worksheet
        Set wsOrigem = Workbooks("Dvisão.xls").Worksheets("Plan1")
        Set wsDestino = Workbooks("Master.xls").Worksheets("Plan5")
          
            With wsOrigem
                    'substitua aqui os ranges origem e destino pelos quais voce quer
                .Range("B2:B500").Copy Destination:=wsDestino.Range("B2")
                .Range("F2:F500").Copy Destination:=wsDestino.Range("K2")
                .Range("J2:J500").Copy Destination:=wsDestino.Range("T2")
            End With
      
      'Fecha o Arquivo Destino e Salva
        Workbooks("Master.xls").Close SaveChanges:=True
        
        MsgBox "Introdução de Dados Concluída"
    End Sub

att Lustosa

Opa, eu preciso que cole como valores pois a range que seleciono está com formulas na planilha de origem.
No código que me passou ate copia e cola, porém como formulas e não valores

Olá, veja se eu acertei agora(Lembre de fazer as adequações novamente):

Sub ImportarDados()
'Copiar dados de um worksheet para outro
        Dim wsOrigem As Worksheet
        Dim wsDestino As Worksheet
        
        'Arquivo Destino, abrimos primeiro
        'Ajuste o caminho do mesmo
        Workbooks.Open Filename:="C:UsersUsuarioDesktopPasta2"
        
        'Arquivos e Abas de Origem e Destino - substitua aqui pelos nomes de seu workbook e worksheet
        Set wsOrigem = Workbooks("Pasta1").Worksheets("Planilha1")
        Set wsDestino = Workbooks("Pasta2").Worksheets("Planilha1")
          
            With wsOrigem
                    'substitua aqui os ranges origem e destino pelos quais voce quer
                .Range("A2:A500").Copy
                
                wsDestino.Range("A2").Select
                
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

                .Range("H2:H500").Copy
                
                wsDestino.Range("H2").Select
                
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
                
                .Range("J2:J500").Copy
                
                wsDestino.Range("J2").Select
                
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
            End With
      
      'Fecha o Arquivo Destino e Salva
        Workbooks("Pasta2").Close SaveChanges:=True
        
        MsgBox "Introdução de Dados Concluída"
    End Sub

Para acionar o código VBA, é preciso ter o Excel aberto.

Obrigado!!
Deu certo

Que bom, não esqueça de marcar a resposta certa como qual resolveu o problema para manter o fórum organizado com a tag [RESOLVIDO].