Continue series after a break

I'm writing a program to make projections. Part 1 looks at history, part 2 looks at future.

In part 1, Cells D2,E2, and F2 say "June, July, August" this month, next month they'll say "June, July, August, September". Following the months is the Total column. Then we come to part 2. To the right of the total column I'd like the continuation of the series for my projection (3 months only). So, for this month, G2 is Total, H2, I2, and J2 should be "September, October, November". Next month they all shift one to the right.

I know how to do the shift to the right, but how do I continue the series?

Any help is greatly appreciated.

Could you include the portion of your code that labels the cells with the months, including the Total column?

Even better would be a sample workbook.

If you are just looking to extend the labels, this will do it:

Public Sub jomili()

Dim i As Integer
Dim strLastMonth As String

With Sheets("Paste")
    For i = 1 To .Cells(4, Columns.Count).End(xlToLeft).Column
        If .Cells(4, i).Value = "Grand Total" Then
            strLastMonth = .Cells(4, i - 1).Value
            For j = 1 To 3
                .Cells(4, i + j) = MonthName(Month(strLastMonth) + j)
            Next j
        End If
    Next i
End With

End Sub

It searches through each column in ROW 4 searching for the text "Grand Total". Then it finds the month name right before that column, and adds the next 3 months. Is that what you are looking for?

Oh, yeah, I forgot about declaring the j. After thinking about this a bit more, it is going to need a slight modification for the end of year. I'll post an update soon.

Well, this fix is ugly, but it'll work. For some reason I can't wrap my mind around how to get the Mod operator to work for this situation, even though it practically screams for it.

Public Sub jomili()

Dim i As Integer
Dim strLastMonth As String

With Sheets("Paste")
    For i = 1 To .Cells(4, Columns.Count).End(xlToLeft).Column
        If .Cells(4, i).Value = "Grand Total" Then
            strLastMonth = .Cells(4, i - 1).Value
            For j = 1 To 3
                If Month(strLastMonth) + j > 12 Then
                    .Cells(4, i + j) = MonthName((Month(strLastMonth) + j) - 12)
                Else
                    .Cells(4, i + j) = MonthName(Month(strLastMonth) + j)
                End If
            Next j
        End If
    Next i
End With

End Sub

Thanks for your patience with my original oversight.