Sub abc()
Application.ScreenUpdating = False
Sheets("AE1").Range("A6:I1000").ClearContents
Sheets("AE2").Range("A6:I1000").ClearContents
Sheets("AE3").Range("A6:I1000").ClearContents
With Range("A4")
.CurrentRegion.AutoFilter Field:=4, Criteria1:="AE1"
Range(Range("A5"), Range("A5").SpecialCells(xlLastCell)).SpecialCells(xlCellTypeVisible).Copy Sheets("AE1").Range("A6")
.AutoFilter
.CurrentRegion.AutoFilter Field:=4, Criteria1:="AE2"
Range(Range("A5"), Range("A5").SpecialCells(xlLastCell)).SpecialCells(xlCellTypeVisible).Copy Sheets("AE2").Range("A6")
.AutoFilter
.CurrentRegion.AutoFilter Field:=4, Criteria1:="AE3"
Range(Range("A5"), Range("A5").SpecialCells(xlLastCell)).SpecialCells(xlCellTypeVisible).Copy Sheets("AE3").Range("A6")
.AutoFilter
End With
Application.ScreenUpdating = True
End Sub