excel - VBA error 1004 range of object _global failed

Question

In the below code it is showing this error in the last line. Please advise.

columninPSI = S1.Range("C1").End(xlToRight).Column
Range("A2:R" & RowsinPSI).Select
Selection.Copy
Range("A" & RowsinPSI + 1).Activate
ActiveSheet.Paste

i = RowsinPSI + 1

' the next line
Range("Ri:R" & RowsinPSI * 2).Value = Range("Ri:R" & RowsinPSI * 2).Value & " $"

question from:https://stackoverflow.com/questions/66066566/vba-error-1004-range-of-object-global-failed

Answer 1

Waitting for answers