VBA複製工作表日期請教

請問如何複製完工作表後自動跳下個月所有日期
目前只會這樣要如何修改

Sub 複製工作表()
ActiveSheet.Copy after:=ActiveSheet '往右複製工作表
Range("B3").Value = WorksheetFunction.EDate(Range("B3"), 1)

End Sub

VBA複製工作表日期請教