Hogy tudom az alábbit makrót használva megcsinálni az Excelben?

Asszem ez kell:

for i=1 to 10

cells(i;2*i-1)="Blabla"

next i

Sub Macro1()

    Dim I

    For I = 1 To 10

        Cells(I, 2 * I - 1) = "Cell " + CStr(I)

    Next I

End Sub

Sub Macro2()

    Range("A1").Select

    Dim I

    For I = 1 To 10

        ActiveCell.FormulaR1C1 = "Cell " + CStr(I)

        ActiveCell.Offset(1, 2).Range("A1").Select

    Next I

End Sub