Sub AutoFilter_Copy()
    Dim DataSheet As Worksheet
    Application.ScreenUpdating = False
    '---------------------------------
    Set DataSheet = ActiveSheet

    For i = 10 To 200
        DataSheet.Range("$A$1").AutoFilter Field:=1, _
                                           Criteria1:=i, _
                                           Operator:=xlAnd

        If DataSheet.UsedRange.SpecialCells(xlCellTypeVisible).Count > 13 Then
            DataSheet.UsedRange.Copy
            Worksheets.Add After:=Worksheets(Worksheets.Count)
            Worksheets(Worksheets.Count).Paste
            DataSheet.Activate
        End If
    Next
    '---------------------------------
    Application.CutCopyMode = False
End Sub