Filter Data for Current Month or Year

How to automate filtering of data for current month, current year, last month or last year using VBA.
Here's the complete VBA code:
Option Explicit

Sub showCurrentMonthData()
Sheet1.Range("A1:C15").AutoFilter field:=3, Criteria1:=xlFilterThisMonth, Operator:=xlFilterDynamic
End Sub

Sub showAllData()
On Error Resume Next
ActiveSheet.showAllData
Range("A1").AutoFilter
End Sub

Sub showCurrentYearData()
Sheet1.Range("A1:C15").AutoFilter field:=3, Criteria1:=xlFilterThisYear, Operator:=xlFilterDynamic

End Sub

Sub showLastYearData()
Sheet1.Range("A1:C15").AutoFilter field:=3, Criteria1:=xlFilterLastYear, Operator:=xlFilterDynamic

End Sub

Sub showLastMonthData()
Sheet1.Range("A1:C15").AutoFilter field:=3, Criteria1:=xlFilterLastMonth, Operator:=xlFilterDynamic

End Sub

Filter Data for Current Month or Year,Filter Data for Current Month or Year automatically,Filter Data for Current Month or Year automatically using vba,