this will give you the row of the 1st blank cell in A

Option Explicit
Dim Blankrow As Long
Sub test()
Blankrow = Worksheets("Sheet1").Range("a1").End(xlDown).Row + 1
End Sub

range("A" & Blankrow) will give you the cell address


--


Gary


wrote in message
oups.com...
Hi All,

I need some help. I am trying to use a macro to go row by row and find
the first non-blank cell (which should be a number) and then using that
as a start point apply a 1/12th calculation to that cell and the next
11 cells, but after that I want the range to go back to zero's. I am
familiar with VBA and Macro's but this is more advanced then I am used
to. Thanks