transfer data from sheet1 to multiple sheets based on names in specific column

[abdelfattah]

hi
i hope to help any body about transfer data from sheet1 to multiple sheets the sheet1 contains data from a2:j i would transfer data every code existed in column j where every code to transfer to a new sheet and rename the sheet in column j for instance if the transfer data capital as what exist in column j the sheet's name is capital and so on the rest in code column j and transfer data from a2:j to relating sheet's name is capital and do for all rests i want this by code

 

[Fluff]

Did it rename the new sheet?

 

[abdelfattah]

i rename my sheet it was main i changed to master as your code

 

[Fluff]

When it created a new sheet did it rename that sheet?

 

[abdelfattah]

no i didn't

 

[Fluff]

If it only created one new sheet & then gave the error you mentioned. Then as I said, the only way I can get that error is if there is a blank cell in column J

 

[abdelfattah]

the main reason is my file i test to another file your code does really works i'm really sorry about waste your time i have a simple request i don't need auto-filter in the "master" sheet is there any way to do it

 

[Fluff]

I'm sorry, but I don't understand

 

[abdelfattah]

i would in image 2 not image 1 remove arrows about filter data

 

[Fluff]

How about

Sub abdelfattah()
   Dim Cl As Range
   Dim Ws As Worksheet
   
   Set Ws = Sheets("Master")
   With CreateObject("scripting.dictionary")
      For Each Cl In Ws.Range("J2", Ws.Range("J" & Rows.Count).End(xlUp))
         If Not .Exists(Cl.Value) Then
            .Add (Cl.Value), Nothing
            Ws.Range("A1:J1").AutoFilter 10, Cl.Value
            Sheets.Add(, Sheets(Sheets.Count)).Name = Cl.Value
            Ws.AutoFilter.Range.Copy Range("A1")
         End If
      Next Cl
      Ws.AutoFilterMode = False
   End With
End Sub

 

[abdelfattah]

excellent fluff that's what i would thank you for your efforts and time