I am assuming that this is the sub you wish to modify. See if this works for you
![]()
Sub CopyRange(x) 'Range("o57:ax57").Copy Destination:=Range("o2") Range("O" & 57 & ":" & "AX" & 57).Copy 'Destination:=Range("O" & x + 1) Range("O" & x + 1).PasteSpecial xlPasteValues, , , False Application.CutCopyMode = False End Sub
Bookmarks