Need macro to move data to tabs depending on column

[x65140]

I need to move data to separate tabs depending on column B
And name the tab what is in column B

Attached example

[KOKOSEK]

There are 1st row empty left for any header of data on each of these new tabs (tweak code if you do not need them):

Please Login or Register  to view this content.

[x65140]

Works perfect !!!! Thanks KOKOSEK!!!!

[KOKOSEK]

Happy to help.
Thanks for rep.

[Bo_Ry]

Please try

Sub tabs() 
Dim r As Range, a, n& 
Application.ScreenUpdating = False 
Application.DisplayAlerts = False 
For n = 2 To Sheets.Count 
    Sheets(2).Delete 
Next 
n = Cells(Rows.Count, 2).End(xlUp).Row 
For Each r In Range("B1:B" & n) 
    If Not Evaluate("isref('" & r.Value & "'!a1)") Then 
        Sheets.Add(, Sheets(Sheets.Count)).Name = r.Value 
        a = r.Parent.Evaluate(Replace("if(b1:b#=" & r.Address & ",row(1:#))", "#", n)) 
        a = Application.Transpose(Filter(Application.Transpose(a), False, False)) 
        a = Application.Index(r.Parent.Columns("a:d"), a, Array(1, 3, 4)) 
        [a1].Resize(Application.CountIf(r.Parent.Columns(2), r.Value), 3) = a 
    End If 
Next 
Application.ScreenUpdating = True 
Application.DisplayAlerts = True 
End Sub  

[KOKOSEK]

IMHO not so easy to tweak in case of change of starting details.

[mehmetcik]

Please Login or Register  to view this content.

[x65140]

Works GREAT as well !!!! Thanks!!!