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