Macro to split based on condition

HI ALL,

I am doing repetative on a daily basis . i ma looking for a macro for teh same .


I have a spread sheet with A to G filled with data , now i ahve assighn the work to users

for example

i have 1000 rows of work i am alloting to diffrent users , depending on their capability.

if pop up can come out and ask me for for every single user i will allot the line items , so that it copies the line items and put it in a seprate file , with the user name.

the user name can be taken form a file called username in A colomun.


can anybody help me on this


thanks in advance.

Does this help?

Sub somusas()
Dim x As String
Dim ws As Worksheet
Application.ScreenUpdating = False
Sheets("username").Activate
Set ws = ActiveSheet
x = InputBox("Please Enter the UserName")
Sheets.Add.Name = x
ws.Activate
Range("A1:A" & ActiveSheet.UsedRange.Rows.count + 1).AutoFilter 1, x
Range("A2:A" & ActiveSheet.UsedRange.Rows.count + 1).SpecialCells(xlCellTypeVisible).EntireRow.Copy Sheets(x).Range("A" & Rows.count).End(3)(2)
Sheets(x).Rows("1:1").Value = ws.Rows("1:1").Value
ws.AutoFilterMode = False
Application.ScreenUpdating = True
End Sub