Where are the buttons, on which sheet ... what is "this ActiveSheet" name for "strCaption = ActiveSheet.Shapes(Application.Caller)" ?
What is the date format in "this column G" ?

ps.: Filtering dates via "vba-AutoFilter" is not such a "nice/easy" operation - you must be aware that what is a date on your computer is not necessarily a date on other people's computers (outside the US)
(hence the request for a data sample)