Dim rng as Range, i as Long
i = 1
set rng = Cells(i,1)
do while Application.countA(rng.Resize(1,15)) < 0
' process the row
i = i + 1
set rng = rng.offset(1,0)
Loop

--
Regard
"Jim15" wrote in
message ...

I have data in columns A - O and am calculating values for columns P -
AA. I get stuck in a do loop in row 2. I want the program to perform
the calculations in a do loop until the last empty row in my
spreadsheet. Please provide answer with VB code, please like

Loop

(my code)

End

Thanks,

Jim15


--
Jim15
------------------------------------------------------------------------
Jim15's Profile:
http://www.excelforum.com/member.php...o&userid=26300
View this thread: http://www.excelforum.com/showthread...hreadid=395789