复制并粘贴每隔一行的特殊值

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