Sub FillIn()
Dim rng As Range
Dim rBlanks As Range

Set rng = Cells(Rows.Count, 1).End(xlUp).Offset(0, 1)
Set rBlanks = Range("B1", rng).SpecialCells(xlCellTypeBlanks)
rBlanks.Value = 1
End Sub
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)




"NEWER USER"
wrote in message
I need to fill a Column (B) with a value of "1" in every cell that is null up
to the last row having a value in Column (A). There are no empty cells in
column A up to the last row with data in the spreadsheet. I can not
accomplish through a recorded macro. Can anybody help me with some coding to
accomplish this task? Thank you