剪切和粘贴无范围

Question

所以我需要剪切和替换一些特定的单元格，但是我不能剪切第二部分，因为我不想指定范围单元格，因为我要重复几次。

这是针对excell中的VBA

Sub Recc()
ActiveWindow.Activate

    'This is the only one i want to specify
    ActiveSheet.Range("A175:C203").Select
    Range("A175:C203").Cut
    Range("A175:C203").Offset(-34, 9).Select
    ActiveSheet.paste
    'I dont want to specify range here since the selection is already made
    ActiveCell.Offset(34, -6).Select
    ActiveCell.Resize(29, 8).Select

    'i cant cut :(
    ActiveSheet.Cut

End Sub

我要削减选择范围。