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.
Bookmarks