Macro to Skip Rows between the current value and a selected value, and add a year

Hello,

Here is my Code it's my best effort for a skipping rows program, but it's not what I'd like to do ultimately:

Sub AddnumbersFinal()

Dim i As Integer
Dim j As Integer
j = ActiveCell.Column
i = ActiveCell.Row

Do Until i = 2000
.Cells(j, i).Value = YearVariable
i = i + 7
YearVariable = YearVariable + 1
Cell(i, j).Value = YearVariable
Loop
End Sub


Here is my ultimate goal. I want a graph relating the year to the average world value. The best solution would be this logic:

1. Look at user defined cell value (year in this case; 1976) and add 1 to the current value.

2. Move down rows until column A contains a cell that reads "Worldwide"

3. Copy the new year in column O (1977 now), and copy the worldwide average value into column P

Repeat

This way, I could just select 1976, run the code, and I could have my x and y axes ready to plot.

Thank you!