Guten Tag

Ich bin dabei, ein Makro zu kreieren, wonach bestimmte Zeilen in eine Übersichtsseite kopiert werden sollten. Diese Zeilen sollten in der einen Spalte jeweils Daten in den folgenden drei Monaten enthalten. Momentan ist mein Code so aufgebaut, dass ich manuell die drei Monate angebe, die mich interessieren. Da ich fast keine Erfahrung mit Excel VBA habe, schaffe ich es leider nicht, diese Angabe zu automatisieren. Statt Oktober 20 und November 20 und Dezember 20 aufzuschreiben, würde ich gern einfach so was wie  "Month + 2" verwenden, wobei Month der jeweils aktuelle Monat des aktuellen Jahres ist. Der genaue Tag wird dabei nicht angegeben, es handelt sich nur um MMMM YYYY (Monat Jahr). Ich wäre echt dankbar um jeden Hinweis. Hier mein jetztiger Code, der relevante Teil fängt von  If Table(i, 2)Public Sub CopyRows() an.

Dim ws As Worksheet
Dim s_Main As String
Dim nRow As Long
Dim Last_row As Long
Dim i As Long
Dim Table As Variant

s_Main = "Overview"
Last_row = Worksheets(s_Main).Cells(Rows.Count, 1).End(xlUp).Row
Worksheets(s_Main).Range("A2:P" & Last_row).ClearContents

For Each ws In Worksheets
    If ws.Name = s_Main Then
        GoTo Change_ws
    Else
        nRows = ws.Cells(Rows.Count, 1).End(xlUp).Row
        ReDim Table(nRows, 16)
        Table = ws.Range("A1:P" & nRows)
        For i = 1 To nRows
            If Table(i, 2) = "Sep. 20" Or Table(i, 2) = "Oct. 20" Or Table (i,2) = "Nov. 20"  Then
                Last_row = Worksheets(s_Main).Cells(Rows.Count, 1).End(xlUp).Row
                ws.Range("A" & i & ":P" & i).Copy Worksheets(s_Main).Range("A" & Last_row)(2)
            End If
        Next i
    End If
Change_ws: