I have a table where several records come from the A5 to the AH100

From these records I have to generate several new sheets, this would
be an example

Employee Type function
Carlos GT Wash.
Pedro JR Ironing
Pedro JR Fold
Raul KL Deliver
Raul KL Charge
Jose MT Shopping

So I need to be separated into various sheets for employee and full
row

Employee Type function
Carlos GT Wash.

Employee Type function
Pedro JR Ironing
Pedro JR Fold

Employee Type function
Raul KL Deliver
Raul KL Charge

Employee Type function
Jose MT Shopping

I have this code I found on the network and that if I generate new
leaf with the first employee but did not make me much more.

Sub Hoja_x_Auditor_Interno()
Application.ScreenUpdating = False
Dim Celda As Range
With Worksheets("Indicadores Internas").Range("A5").CurrentRegion
..Parent.Range("A6,AH6") = .Cells(1)
..Resize(, 1).AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=.Parent.Range("BT6"), Unique:=True
..Parent.Range("BT6").Sort _
Key1:=.Parent.Range("BT7"), Order1:=xlAscending, Header:=True
With .Parent.Range("BT6").CurrentRegion
For Each Celda In .Offset(1).Resize(.Rows.Count - 1)
..Parent.Range("AO7") = Celda
With Worksheets.Add(After:=Worksheets(Worksheets.Count) )
..Name = Celda
End With
..Parent.Range("A5").CurrentRegion.AdvancedFilter _
Action:=xlFilterCopy, CriteriaRange:=.Parent.Range("AO6:AO7"), _
CopyToRange:=Range("A5:AH5")
Next
End With
..Parent.Columns("AO:BT").Clear
Debug.Print .Parent.UsedRange.Address
End With
End Sub


Thanks

I wait your answers