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?