Macro para informe de mes

Soy Nuevo en esto vba y no se como hacer una amcro que me genere un informe

Del mes X tengo una tabla que se alimenta de un userform con varios campos entre ellos una columna llamda fecha la cual quiero filtra por mes para mi reporte

Sub Macro1()
'
' Macro1 Macro
'

    ActiveSheet.Range("$A$2:$H$25").AutoFilter Field:=5, Operator:= _
        xlFilterValues, Criteria2:=Array(1, "10/01/2015")
    Range("A2:H21").Select
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    Range("A2").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub