Split worksheet columns into more columns (same worksheet) based on numer of rows

Since you only provided a picture and did not upload the file to test, then this code is untested.

Sub AMS()
Dim lr as long
     lr= Range("A" & Rows.Count).End(xlUp).Row
     Range("A2001:H4000").Cut Destination:= Range("I1")
     Range("A4001:H" & lr).Cut Destination:= Range("Q1")
End Sub

Alan