Copy each row from one sheet then paste on another sheet every 22nd row until the end

I have Sheet1 (TEMPLATE) with data and need to copy A2:BE2 and paste into Sheet2 (2.2) on row A2, then go back to sheet1 copy A3:BE3 and then going to Sheet2 and pasting A23, which is 21 rows after the second row

Example:
Sheet1: copy A2:BE2
Sheet2: Paste A2:BE2
Sheet1: copy A3:BE3
Sheet2: Paste A23:BE23
Sheet1: copy A4:BE4
Sheet2: Paste A44:BE44
Sheet1: copy A5:BE5
Sheet2: Paste A65:BE65

Until Sheet1 does not have any more data on column A

This is what i have BUT it only pastes starting on A2 and then pastes the second one on A3 etc. I tried other ways and it wont paste correctly
Sub Copypaste()

Dim LR As Long, i As Long, n As Long
With Sheets("TEMPLATE")
LR = .Range("A" & .Rows.Count).End(xlUp).Row
n = 2

For i = 2 To LR Step 2 'A2 to last row
.Range("A2:be2" & i).Copy
Sheets("2.2").Range("A" & n).PasteSpecial _

Next i

End With
End Sub

I would but there are existing data on sheet2 that I cannot move around.

This is my understanding.
Check references and change if required.

Please Login or Register  to view this content.

Thank you so much! I've been searching for days for this! This worked!

Don't know if you mean Post #5, Post #6 or Post #7 but the your problem seems to be solved.
Good luck