Indsæt i næste række via VBA

Hej venner..

Jeg skal have oprettet en kode i VBA hvor jeg ved at trykke på commandknap kopierer tekst i række a, b og c på sheet 1 og herefter indsætter på i sheet 2.
Trykker jeg på knappen flere gange skal teksten indsætten under hinanden i sheet 2 og ikke overskrive det der står i forvejen.

jeg har lavet følgende kode.. men ved ikke om der er en mere simpel metode:

Sub Rectangle1_Click()
'
iLastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row + 1 'Plus 1 for at få næste ledige række.
Range("A" & CStr(iLastRow)).Select

    Range("D8").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("A1").Select
    iLastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row + 1
    Range("A" & CStr(iLastRow)).Select
    ActiveSheet.Paste
    Sheets("Sheet1").Select
    Range("A20").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("B1").Select
    iLastRow = ActiveSheet.Cells(Rows.Count, "b").End(xlUp).Row + 1
    Range("b" & CStr(iLastRow)).Select
    ActiveSheet.Paste
    Sheets("Sheet1").Select
    Range("B20").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("C1").Select
    iLastRow = ActiveSheet.Cells(Rows.Count, "c").End(xlUp).Row + 1
    Range("c" & CStr(iLastRow)).Select
    ActiveSheet.Paste
    Sheets("Sheet1").Select
    Range("C20").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("D1").Select
        iLastRow = ActiveSheet.Cells(Rows.Count, "d").End(xlUp).Row + 1
    Range("d" & CStr(iLastRow)).Select
    ActiveSheet.Paste
    Sheets("Sheet1").Select
   
Sheets("sheet1").Select
Range("a1").Select


End Sub