Split data in one worksheet to multiple worksheets and naming the tab based on column in Excel using vba

[ACE2X12]

I currently have a spreadsheet with 28 columns and a header (A-AB). The rows and data will vary every month. I would like to spilt the worksheet into as many worksheets depending on the data in column AB and then name the worksheets according to the data in column AB and bring all the DATA over from connected to the name in column AB. Including blanks, amounts, dates, etc. So if column AB has the name Janet, George, Stephanie. I would like it to create a tab with the names janet, George and Stephanie, then bring all the rows associated with each name into the proper tab. There is usually 10,000 plus lines everytime, so I would need it to process fast and efficient. I have tried various codes but cant seem to get it right. Any help/suggestions would be greatly appreciated.

 

[ACE2X12]

I have tried the code below, it populates the tabs to the right with the names but it is not pulling over any data, not even a header row.

Sub columntosheets()

Const sname As String = "report" 'change to whatever starting sheet
Const s As String = "A" 'change to whatever criterion column
Dim d As Object, a, cc&
Dim p&, i&, rws&, cls&
Set d = CreateObject("scripting.dictionary")
With Sheets(sname)
rws = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
cls = .Cells.Find("*", , , , xlByColumns, xlPrevious).Column
cc = .Columns(s).Column
End With
For Each sh In Worksheets
d(sh.Name) = 1
Next sh

Application.ScreenUpdating = False
With Sheets.Add(after:=Sheets(sname))
Sheets(sname).Cells(1).Resize(rws, cls).Copy .Cells(1)
.Cells(1).Resize(rws, cls).Sort .Cells(cc), 2, Header:=xlYes
a = .Cells(cc).Resize(rws + 1, 1)
p = 2
For i = 2 To rws + 1
If a(i, 1) <> a(p, 1) Then
If d(a(p, 1)) <> 1 Then
Sheets.Add.Name = a(p, 1)
.Cells(1).Resize(, cls).Copy Cells(1)
.Cells(p, 1).Resize(i - p, cls).Copy Cells(2, 1)
End If
p = i
End If
Next i
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End With
Sheets(sname).Activate

End Sub