Eduardo Yurii

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