Excel VBA - Split rows of data into multiple workbooks based on cell value

Cross post see

http://www.ozgrid.com/forum/showthread.php?t=193863

Your post does not comply with Rule 8 of our Forum RULES. Do not crosspost your question on multiple forums without including links here to the other threads on other forums.

Cross-posting is when you post the same question in other forums on the web. The last thing you want to do is waste people's time working on an issue you have already resolved elsewhere. We prefer that you not cross-post at all, but if you do (and it's unlikely to go unnoticed), you MUST provide a link (copy the url from the address bar in your browser) to the cross-post.

Expect cross-posted questions without a link to be closed and a message will be posted by the moderator explaining why. We are here to help so help us to help you!

Read this to understand why we ask you to do this, and then please edit your first post to include links to any and all cross-posts in any other forums (not just this site).

Try this:

Option Explicit

Sub Divide()
    Dim lr As Long
    lr = Range("A" & Rows.Count).End(xlUp).Row
    Dim p As Long
    p = InputBox("how many users?")
    Dim splt As Long
    splt = Int(lr / p) + 1
    MsgBox (splt)
    Dim T1 As Workbook, T2 As Workbook, T3 As Workbook, T4 As Workbook
    Set T1 = Workbooks("Tar1.xlsx")
    Set T2 = Workbooks("Tar2.xlsx")
    Set T3 = Workbooks("Tar3.xlsx")
    Set T4 = Workbooks("Tar4.xlsx")
    
    Range("A1:AX1").Copy T1.Sheets("Sheet1").Range("A1")
    Range("A1:AX1").Copy T2.Sheets("Sheet1").Range("A1")
    Range("A1:AX1").Copy T3.Sheets("sheet1").Range("A1")
    Range("A1:AX1").Copy T4.Sheets("Sheet1").Range("A1")
    Range("A2:AX" & splt - 1).Copy T1.Sheets("Sheet1").Range("A2")
    Range("A" & splt & ":AX" & splt * 2).Copy T2.Sheets("Sheet1").Range("A2")
    Range("A" & splt * 2 & ":AX" & splt * 3).Copy T3.Sheets("Sheet1").Range("A2")
    Range("A" & splt * 3 & ":AX" & splt * 4).Copy T4.Sheets("Sheet1").Range("A2")
    Application.CutCopyMode = False
    
End Sub