Macro: Split worksheet into tabs.

Try this:

Sub Macro2()
 
Dim r As Range, r2 As Range, ws As Worksheet
 
Application.DisplayAlerts = False

With Sheets("General Information")
    Sheets.Add().Name = "Temp"
    .Range("B2", .Range("B2").End(xlDown)).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets("Temp").Range("A1"), Unique:=True
    Set r = Sheets("Temp").Range("A2", Sheets("Temp").Range("A2").End(xlDown))
     For Each r2 In r
        .Range("A2").AutoFilter field:=2, Criteria1:=r2
        Set ws = Worksheets.Add(After:=Worksheets(Worksheets.Count))
        .AutoFilter.Range.Copy ws.Range("A1")
        ws.Name = r2
    Next r2
    Sheets("Temp").Delete
    .AutoFilterMode = False
End With
 
Application.DisplayAlerts = True
    
End Sub

Wow. That worked like a charm. Thanks for the pretty much instant response. Umm is there a way to make it paste in the same format. Making it so I do not have to fit to row width on each and every tab. My real report will have about 30 tabs.

Can you clarify what you mean? If you mean column width, add this line before the Next:

ws.Range("A:H").EntireColumn.AutoFit

Yup thats all I wanted.