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.
Any assistance would be greatly appreciated.![]()
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
Bookmarks