请问如果想选中S,R两列的第二行到最后一行有数据的行，需要如何录制宏呢？

筷子给我放下

如果单纯录制宏不行，那么应该如何书写代码呢？
我目前的代码是这样的： ActiveCell.Offset(-6, 8).Range("A1:B1").Select
    Selection.AutoFill Destination:=ActiveCell.Range("A1:B8")
    ActiveCell.Range("A1:B8").Select
    ActiveCell.Offset(0, -16).Range("A1:A8").Select
    Selection.Copy
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveCell.Offset(0, 18).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(0, -2).Range("A1:A8").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Offset(0, 3).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(0, -1).Range("A1:B8").Select
End Sub

我在录制宏的过程中，使用的是选中S2:R2这俩单元格，双击其底部，拉黑到最后一行有数据的行为止复制的，但实际运行中，它锁定了只到录制时最后一行的位置，而不是到最后一行有数据的位置。

请各位高手指教！