Create loop, copy output, paste into new sheet

I'm new to VBA and looking for help with creating a macro.

This is what I am trying to do:
1 - Loop through values 1 to 1289 in cell $A$4 on Sheet1. Each of these values corresponds with a row of data and calculations are performed in my spreadsheet.
2 - For each value above (1-1289), copy the output which is in row 2 of Sheet2.
3 - Paste the output for each value from step 2 into Sheet3 starting with row 2 and ending with row 1290.

Thank you for any help anyone can provide.

I tried to answer my question on my own with some research. I am pasting my current code below. I am having two problems:

1) The program is pasting the output for i=1289 in all of the rows rather than the output for each integer 1 through 1289 in each row.
2) It runs very slowly, which leads me to believe there is a better way to do this.

Any advice will be much appreciated. If it is easier for someone to help if I upload my spreadsheet, I will do so this evening. Thanks in advance.

Sub STMTRUN()
  Dim DataSH As Worksheet, TransferSH As Worksheet, OutSH As Worksheet
  Set DataSH = Sheets("Data")
  Set TransferSH = Sheets("transfer")
  Set OutSH = Sheets("merge")
  Dim i As Integer
        For i = 1 To 1289
        DataSH.Range("A4").Value = i
        TransferSH.Range("A2:X2").Copy Destination:=OutSH.UsedRange.Columns(1).Offset(1, 0)
    Next i
End Sub

Hello
try this

Sub STMTRUN()
  Dim DataSH As Worksheet, TransferSH As Worksheet, OutSH As Worksheet
  Dim Derl As Integer
  Set DataSH = Sheets("Data")
  Set TransferSH = Sheets("transfer")
  Set OutSH = Sheets("merge")
  Dim i As Integer
        For i = 1 To 1289
        DataSH.Range("A4").Value = i
        Derl = OutSH.Range("A" & Rows.Count).End(xlUp).Row + 1
        OutSH.Range("A" & Derl & ":X" & Derl).Value = TransferSH.Range("A2:X2").Value
    Next i
End Sub

Works perfectly! Thank you so much, LOKLUK. This is extremely helpful.