Datum Monat addieren

Sub sieht vereinfacht wie folgt aus:

Sub Daten_filtern(s As String)
s = CDbl(CDate(s))
Selection.AutoFilter Field:=1, Criteria1:="<=" & s
end 

Sub
Funktioniert auch soweit. Ich würde jetzt aber gerne eine Schleife schreiben die diese 

Sub zuerst mit einem Datum ausführt dann einen Monat zum Datum dazu addiert die 

Sub wieder ausführt usw.
Ich kann natürlich einfach +30 schreiben funktioniert aber nicht wirklich weil die Monate ja verschieden lang sind und ich schon gerne den ersten oder letzten eines Monats als Datum hätte.
Danke für eure Hilfe im voraus