Kopiowanie danych w regularnych odstępach czasu

Mam dane w Arkuszu 1, powiedzmy wiersze 1,2,3,4 ... itd. Chcę je umieścić w Arkuszu2 z przerwą 20 linii pomiędzy każdym wierszem.

Jak do tego podejdę?

To VBa to robi

Najpierw zapisz kopię swojego pliku, na wszelki wypadek

Option Explicit

Sub WenchesAndMead()

Dim numberOfRowsGap As Integer
numberOfRowsGap = 20

Dim row As Integer
row = 1

Dim otherRow As Integer
otherRow = 1

Do While (Worksheets("Sheet1").Range("A" & row).Value <> "")

    Worksheets("Sheet2").Rows(otherRow).Value = Worksheets("Sheet1").Rows(row).Value
    otherRow = otherRow + numberOfRowsGap
    row = row + 1

Loop

End Sub

Jak dodać VBA w MS Office?