Create loop, copy output, paste into new sheet

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