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

Hello, I have a 2 Macros that looks to see if a cell (i2) has info and if it does, it copies a range 057:AX57 to O2 when I click a button, which works, now what I would like to do it the macro then looks at i3, i4... and then copies the same range but next row down (O3) and loops until it hits a blank cell in "i", below is my current code, just not sure how to make it loop.

Private Sub ButtonClick()
try1
End Sub
'standard module code
sub try1
If(IsBlank(I2)=false then
CopyRange 
else 
exit sub 
End If
end sub

---------------------------------------------------------------

Sub CopyRange()
Range("o57:ax57").Copy Destination:=Range("o2")
Application.CutCopyMode = False
End Sub

Any assistance would be greatly appreciated.