VBA Excel通过列和行偏移将单元格内容复制到另一个

Question

Here is my code

Sub A_Copy_To_Prior_Row_column()
'
' A_Copy_To_Prior_Row_column Macro
'

'
    Application.CutCopyMode = False
    Selection.Copy
    Range("R183").Select
    ActiveSheet.Paste
End Sub

Where R183 is I need to not a specific cell, but a cell based on minus 1 row, and +17 columns of the selected/highlighted cell I wish to copy

Answer 1

activecell.Offset(-1, 17).Value = activecell.Value

Answer 2

Sub A_Copy_To_Prior_Row_column()
'
' A_Copy_To_Prior_Row_column Macro
'

'
    Application.CutCopyMode = False
    With Selection
        .Copy
         ActiveSheet.Paste Destination:=.Offset(-1, 17)
    End With
End Sub