Oi gente. Desde já agradeço a ajuda de voces. Porfavor me ajudem com isso: Eu tenho uma Plan1 e gostaria de passar os dados dessa Plan1 para um outro arquivo chamado Planilha2 eu tenho um codigo aqui que esta passando os dados da Plan1 para a Plan2 no mesmo arquivo, só que eu quero que ele cole em outro arquivo já existente. entenderam? segue o codigo que eu tenho Sub CopyData()
Dim LRow As Integer
Dim LColARange As String
Dim LContinue As Boolean
Sheets("Plan1").Select
Range("A1").Select
LContinue = True
LRow = 0
While LContinue = True
LRow = LRow + 1
LColARange = "A" & CStr(LRow)
If Len(Range(LColARange).Value) = 0 Then
LContinue = False
End If
Wend
Range("A1:B" & CStr(LRow - 1)).Select
Selection.Copy
Sheets("Plan2").Select
Range("A2").Select
ActiveSheet.Paste
End Sub Obrigada gente.