EXCEL能筛选后自动分出表格来吗

我有一VBA，自动可将内容分成多个EXCEL表，不过我建议不用筛选，而用排序，按照种类排序，排好序后用VBA即可生成按照种类分成的表格
会宏的话自己复制下边内容，（不会可HI我或留言，我帮你，建议你将种类放在第一列）
Sub 拆分表()
Application.ScreenUpdating = False
Dim clm_d, hh As Integer
Dim mycell As Range
Dim nodupes As New Collection
Dim rngop As Range
Set shtop = ActiveSheet
hh = Application.CountA(Range("1:110"))
clm_d = Application.InputBox(prompt:="请选择作为拆分的列" & Chr(13) _
& "注意:" & Chr(13) & "1、拆分要第一行为标题行" & Chr(13) & "2、输处列号(如1,2),用键盘输入", Type:=1)
If clm_d = False Or clm_d > hh Then Exit Sub
On Error Resume Next
For Each mycell In shtop.Range(Cells(4, clm_d), (shtop.Cells(4, clm_d).End(xlDown)))
nodupes.Add mycell.Value, CStr(mycell.Value)
Next mycell
On Error GoTo 0
Set rngop = Cells.CurrentRegion
For Each Item In nodupes
rngop.AutoFilter Field:=clm_d, Criteria1:=Item
rngop.Copy
Sheets.Add after:=ActiveSheet
Act