Copy columns based on header (Without header)

Does this help?

Sub Michael_BU()
Dim i As Long
For i = 2 To Range("A" & Rows.count).End(3).Row
Range(Cells(i, 1), Cells(i, 13)).Copy Sheets("INPUT").Range("A" & Rows.count).End(3)(2)
Next i
End Sub