Скопируйте и вставьте специальные значения для каждой строки

Question

Привет, я новичок в VBA и пытаюсь преобразовать формулы из 1209 строк в их значения, однако я хочу оставить существующие формулы в каждых двух других строках.

Мой текущий код приведен ниже. Я не хотел бы указывать диапазон ячеек каждый раз, когда я копирую и вставляю специальные значения, такие как G7: G8, затем G11: G12 и т. Д.

Любая помощь, которую вы можете предоставить, приветствуется.

Спасибо

Range("G7:G8").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

Range("G11:G12").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False