How to split rows of data into multiple sheets?

[DoseofJose]

I'm trying to transfer my bookkeeping data from GoDaddy to QuickBooks. I have around 5300 rows of data and QuickBooks only allows 1000 rows per sheet. I need to split my data into 6 separate sheets.

[#2]

@DoseofJose 

Run the following macro:

Sub Test()
    Dim ws As Worksheet
    Dim wt As Worksheet
    Dim r As Long
    Dim m As Long
    Application.ScreenUpdating = False
    Set ws = ActiveSheet
    m = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
    For r = 1 To m Step 1000
        Set wt = Worksheets.Add(After:=Worksheets(Worksheets.Count))
        ws.Range("A" & r).Resize(1000).EntireRow.Copy Destination:=wt.Range("A1")
    Next r
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub