How To Loop a copy range macro until lookup cell is blank/empty

Thank you Alan, corrected:

Ok, I have resolved the loop issue, but based on the code below how do I paste values only not formula, I have found and tried the pastespecial xlPasteValues but not sure how to properly use in my code since it keeps giving me errors.

Sub Button_Click()
try1
End Sub

Sub try1()
Dim i As Integer
For i = 1 To 50

    If IsEmpty(Range("I" & i + 1).Value) = False Then
        CopyRange (i)
    Else
        Exit Sub
    End If
Next i
End Sub


Sub CopyRange(x)
'Range("o57:ax57").Copy Destination:=Range("o2")
Range("O" & 57 & ":" & "AX" & 57).Copy Destination:=Range("O" & x + 1)
Application.CutCopyMode = False
End Sub