Copiar dados sequencialmente

[Cleitonlc]

Pessoal

Boa Tarde

Criei uma macro para copiar dados de outra pasta de trabalho, conforme abaixo:

Sub Macrodeimportação()
'
' Macrodeimportação Macro
'
'
    Windows("Relatório de Visitas - Padrão.xlsx").Activate
    Range("B5:F5").Select
    Selection.Copy
    Windows("Planilha de Importação Produtos em Uso e Potenciais.xlsx").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("B2").Select
    Windows("Relatório de Visitas - Padrão.xlsx").Activate
    Range("B7:C7").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Planilha de Importação Produtos em Uso e Potenciais.xlsx").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C2").Select
    Windows("Relatório de Visitas - Padrão.xlsx").Activate
    Range("B8:C8").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Planilha de Importação Produtos em Uso e Potenciais.xlsx").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D2").Select
    Windows("Relatório de Visitas - Padrão.xlsx").Activate
    Range("A22:M31").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Planilha de Importação Produtos em Uso e Potenciais.xlsx").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A2:C2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A3").Select
    ActiveSheet.Paste
    Range("A4").Select
    ActiveSheet.Paste
    Range("A5").Select
    ActiveSheet.Paste
    Range("A6").Select
    ActiveSheet.Paste
    Range("A7").Select
    ActiveSheet.Paste
    Range("A8").Select
    ActiveSheet.Paste
    Range("A9").Select
    ActiveSheet.Paste
    Range("A10").Select
    ActiveSheet.Paste
    Range("A11").Select
    ActiveSheet.Paste
    Range("A12").Select
End Sub

 

Este é a última parte de tudo que copiei, agora preciso que ele copie tudo novamente e cole abaixo daquilo que havia copiado, ou seja repita o processo acima e cole abaixo do que tinha copiado.

 

Alguém pode me ajudar?

 

[Caio Rodrigues Almeida]

Dê uma olhada nesse tópico:

 

https://www.clubedohardware.com.br/forums/topic/931661-resolvido-macro-para-copiar-e-colar-de-forma-sequencial/