Hallo Leute, ich bin auf eure Hilfe angewiesen. (ich bin ein VBA-Anfänger)

Ich schreibe ein Makro für die Berechnung von logarithmierte Renditen für 505 Aktien.

Sub LOG_R_6()
'
' LOG_R_6 Makro
'
' Tastenkombination: Strg+l
'
    ActiveCell.FormulaR1C1 = "LOG_RETURNS"
    Range("F4").Select
    ActiveCell.FormulaR1C1 = "=LN(RC[-2]/R[-1]C[-2])"
    Range("F4").Select
    Selection.AutoFill Destination:=Range("F4:F4309")
    Range("F4:F4309").Select
    Columns("G:G").Select
    Selection.Insert Shift:=xlToRight
End Sub

Jetzt würde ich diesen Code genau 505x immer um 6Spalten verschoben ausführen lassen.

Kann mir da ein VBA-Profi von euch oder so weiterhelfen, ich krieg es leider nicht hin.

Vielen Dank im Voraus und beste Grüsse
n245