Below is one way to accomplish this.  Place the code in a standard
module and call it from the sheet you want to split up.  It is
currently set to filter ol column 2 (B).  If you ever need to change
that, simply change the filterColNum to whatever the number of the
column you want to filter on.
Sub ReportSplit()
   Dim shSource As Worksheet, shTarget As Worksheet
   Dim rgSource As Range, rgUniques As Range, cl As Range
   Dim filterColNum As Integer
   Dim Uniques As New Collection, Unique
   Set shSource = ActiveWorkbook.ActiveSheet
   filterColNum = 2
   With shSource
       Set rgSource = ActiveSheet.UsedRange
       Set rgUniques = .Range(Cells(2, filterColNum), _
           Cells(Rows.Count, filterColNum).End(xlUp))
   End With
   On Error Resume Next
       For Each cl In rgUniques
           Uniques.Add cl.Value, CStr(cl.Value)
       Next cl
   On Error GoTo 0
   Application.ScreenUpdating = False
   For Each Unique In Uniques
       Worksheets.Add , ActiveSheet
       Set shTarget = ActiveSheet
       shTarget.Name = Unique
       With rgSource
           .Columns(filterColNum).AutoFilter 1, Unique
           .Copy shTarget.Range("A1")
       End With
       shSource.AutoFilterMode = False
   Next Unique
   Application.Goto shSource.Range("A1")
   Application.ScreenUpdating = True
End Sub