Odpowiedzi:
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