Boa noite, alguém poderia me ajudar com o código da macro abaixo, preciso que quando acionar a macro ele copias as informações para o próxima linha vazia!
Sub Macro4()
'
' Macro4 Macro
'
'
Range("D5").Select
Selection.Copy
Sheets("LISTA").Select
Range("C4:D4").Select
ActiveSheet.Paste
Sheets("Plan1").Select
Range("D6").Select
Application.CutCopyMode = False
Selection.Copy
Range("B42").Select
Sheets("LISTA").Select
Range("E4:F4").Select
ActiveSheet.Paste
Sheets("Plan1").Select
Range("D7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("LISTA").Select
Range("G4:H4").Select
ActiveSheet.Paste
Sheets("Plan1").Select
Range("D8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("LISTA").Select
Range("I4:J4").Select
ActiveSheet.Paste
Sheets("Plan1").Select
Range("D9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("LISTA").Select
Range("K4:L4").Select
ActiveSheet.Paste
Sheets("Plan1").Select
Range("D10").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("LISTA").Select
Range("M4:N4").Select
ActiveSheet.Paste
End Sub