Copy and Paste Loop

[JTSHOW]

Hello, I need to have a macro that can copy two cells and paste them onto a separate sheet. Here's what I have so far, but nothing happens when I run it:

Sub T()
'
' T Macro
'
' Keyboard Shortcut: Ctrl+Shift+T
'
Let i = 1
Let j = 3
Do While Not IsEmpty(ActiveCell)
Range("A" + CStr(i) & ":B" + CStr(i)).Select
Selection.Copy
Sheets("Template").Select
Range("A" + CStr(j) & ":B" + CStr(j)).Select
ActiveSheet.Paste
Sheets("2 - 22").Select
i = i + 25
j = j + 1
Loop
End Sub

I need to copy the data in cells A1:B1 from 2-22 to A3:B3 on Template, then cells A26:B26 on 2-22 to A4:B4 on template and so on.

thank you much!
J.T.

 

[JTSHOW]

Alright I did get it to work, wasn't specifying variable correctly and didnt type the sheet name in correctly.