Boa tarde!!
Tente
assim..
Sub AleVBA_Copiar()
Dim lr As Long
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws1 = Sheets("INÍCIO")
Set ws2 = Sheets("MOVIMENTO")
lr = ws1.Cells(Rows.Count, "A").End(xlUp).Row
ws1.Range("A18:G" & lr).Copy ws2.Cells(Rows.Count, "A").End(xlUp).Offset(1)
End Sub
Att
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 14/02/2014 11:21 am