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]

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
   End With
End Sub

Change sheet name to suit

 

[abdelfattah]

hi, fluff it gives me error

 

[Fluff]

Do you have any blank cells in col J?

 

[abdelfattah]

there is no empty as above image

 

[Fluff]

From your image the values are in col I not J

 

[abdelfattah]

yes i know but this is begins from col b i adjust your cod ranga b1 to j1 sorry about it but the error i t doesn't relate it as far as i know

 

[Fluff]

The only way I can get that error is if a cell in col J is blank.
Do any sheets get created?

 

[abdelfattah]

the only sheet is master it create the new sheet is capital but it's empty because the error code

 

[abdelfattah]

it also gives me this error in this column after run code