【1 OSの種類 　 　 　 　 .】 Windows10
【2 Excelのバージョン 　 】 Excel2016
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

質問があります。
下記表があり、自動で今月の商品を抽出できるようにしたいのですが
記録のマクロで、A5をコピーしフィルターに貼付けるようにしたら
2018-07が貼り付きます
A5は＝today（）なので来月は2018-08が自動で抽出させるにはどうすれば宜しいでしょうか？

　　 a　 　　　b 　　 c　 　d 　　　e
1 　 年　　　　商品　数量　金額　　2018-07
2　2018-06　りんご　2　　200
3　2018-07　いちご　2　　500
4　2018-07　ばなな　1　　150



Sub Macro1()
'
' Macro1 Macro
'

'
Range("e1").Select
Selection.Copy
ActiveSheet.ListObjects("sheet1").Range.AutoFilter Field:=1, Criteria1:= _
"2018-07"
End Sub