Flytte linier fra 1 ark til et andet.

Hej jeg vil gerne flytte eller kopiere nogle data fra et regneark til et andet ark på næste ledige linie. Jeg har lavet et lille program, men det melder fejl. Kan nogen hjælpe mig?

  Sub Makro1()
'
' Makro1 Makro
' Makro indspillet 19-11-2007 af xxx
'
    Dim rg1 As Range
    Dim rg3 As Range
   
    Set rg1 = Worksheets("Ark1").Range("A2:I2")
    Set rg3 = Worksheets("Ark2").Range("A1000").End(xlUp).Offset(1, 0)
    rg3.Resize(, 9) = Application.WorksheetFunction.Transpose(rg1)

    Sheets("Ark2").Select
   
End Sub