VBA indsætte måned som tekst

Hej Jeg vil gerne kunne indsætte:

Celle A1: Aktuel måned som tekst (f.eks. June, July etc.)
Celle A2: A1 + 1md
Celle A3: A2 + 1md
Celle A4: A3 + 1md

Det hele skal laves via VBA, da det skal automatiseres i forbindelse med oprettelsen af et nyt dokument via VBA.

Jeg kan godt få skrevet aktuelle måned via:

With Worksheets("Ark1")
    .Range("A1").Value = Format(Now(), "mmmm")
End With

Men jeg kan ikke gennemskue at få lagt en måned til