Нужно чтобы даты вставлялись в столбик на новом листе , в формате (месяц; год), + следующий месяц. У меня получается не корректно, можно как-нибудь объяснить что нужно прибавлять не 31 каждый раз, а 1 месяц. Вот что у меня получилось:

Sub расчет()
Dim j As Long, i As Long
j = Cells(1, 1)
m = Cells(2, 1)
Sheets("лист2").Select
Cells.Select
Selection.ClearContents
Range("A2").Select
ActiveCell.FormulaR1C1 = "=лист1!R[6]C[2]"

For i = 2 To m
If Cells(i, 1).Address = Cells(i, 1).MergeArea(1).Address Then
Cells(i, 1) = j
j = j + 31
End If
Next i
End Sub

Заранее большое спасибо!

Крайне благодарен за помощь!!!