I'm trying to create a loop in VBA with an autofilter : ActiveSheet.Range("A:E").AutoFilter Field:=4, Criteria1:="=05*", _Operator:=xlAnd, Criteria2:="=*2014"

Range([D2], Cells(Rows.Count, "D")).SpecialCells(xlCellTypeVisible)(1).Select
    
Selection.NumberFormat = "[$-409]mmm-yy;@"
   
ActiveCell.FormulaR1C1 = "5/1/2014"
   
Range(Selection, Selection.End(xlDown)).Select
   
Selection.FillDown
 
  ActiveSheet.Range("A:E").AutoFilter Field:=4, Criteria1:="=06*", _
        Operator:=xlAnd, Criteria2:="=*2014"
    
Range([D2], Cells(Rows.Count, "D")).SpecialCells(xlCellTypeVisible)(1).Select
   
 Selection.NumberFormat = "[$-409]mmm-yy;@"

    ActiveCell.FormulaR1C1 = "6/1/2014"

    Range(Selection, Selection.End(xlDown)).Select

    Selection.FillDown

    ActiveSheet.Range("A:E").AutoFilter Field:=4, Criteria1:="=07*", _
        Operator:=xlAnd, Criteria2:="=*2014"

     Range([D2], Cells(Rows.Count, "D")).SpecialCells(xlCellTypeVisible)(1).Select

     Selection.NumberFormat = "[$-409]mmm-yy;@"

    ActiveCell.FormulaR1C1 = "7/1/2014"

    Range(Selection, Selection.End(xlDown)).Select

    Selection.FillDown

     ActiveSheet.Range("A:E").AutoFilter Field:=4, Criteria1:="=08*", _
        Operator:=xlAnd, Criteria2:="=*2014"

    Range([D2], Cells(Rows.Count, "D")).SpecialCells(xlCellTypeVisible)(1).Select

     Selection.NumberFormat = "[$-409]mmm-yy;@"

    ActiveCell.FormulaR1C1 = "8/1/2014"

    Range(Selection, Selection.End(xlDown)).Select

    Selection.FillDown

     ActiveSheet.Range("A:E").AutoFilter Field:=4, Criteria1:="=09*", _
        Operator:=xlAnd, Criteria2:="=*2014"

     Range([D2], Cells(Rows.Count, "D")).SpecialCells(xlCellTypeVisible)(1).Select

     Selection.NumberFormat = "[$-409]mmm-yy;@"

    ActiveCell.FormulaR1C1 = "9/1/2014"

    Range(Selection, Selection.End(xlDown)).Select

    Selection.FillDown