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?