Prezados, Bom dia!

Estou com um erro ao executar algumas macros em minha planilha. Criei 3 macros referente ao jan, fev e mar. Estas macros criam filtros em minha planilha para me trazer um resultado. Criei uma Caixa de Combinação (ActiveX) para que ao selecionar o mês ele execute uma das macros correspondentes.

O código que utilizei foi este:

Private Sub ComboBox1_Change()

If ComboBox1.Value = "JAN/16" Then
Call filtro_jan
ElseIf ComboBox1.Value = "FEV/16" Then
Call filtro_fev
Else
Call filtro_mar
End If

End Sub

O código que ficou para cada macro foi este abaixo:

Sub filtro_jan()
'
' filtro_jan Macro
'

'
Range("A7").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.AutoFilter
ActiveSheet.Range("$A$7:$AF$313").AutoFilter Field:=4, Criteria1:="JAN/16"
ActiveWorkbook.Worksheets("BAIXAS_PV (3)").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("BAIXAS_PV (3)").AutoFilter.Sort.SortFields.Add Key _
:=Range("E7:E117"), SortOn:=xlSortOnValues, Order:=xlDescending, _
DataOption:=xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("BAIXAS_PV (3)").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 8
ActiveWorkbook.Worksheets("BAIXAS_PV (3)").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("BAIXAS_PV (3)").AutoFilter.Sort.SortFields.Add Key _
:=Range("H7:H313"), SortOn:=xlSortOnValues, Order:=xlDescending, _
DataOption:=xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("BAIXAS_PV (3)").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A5:A6").Select
End Sub

Porém ao selecionar o mês, ele até executar a macro e filtra normal, mas retorna o erro 1004:

ERRO EM TEMPO DE EXECUÇÃO 1004:
O MÉTODO AUTOFILTER DA CLASSE RANGER FALHOU

Alguém poderia me ajudar?

Abs