Hi

Try
Sub aaa()
Range("i65536").End(xlUp).Select
While ActiveCell.Row 1
If IsEmpty(ActiveCell) Then Cells(ActiveCell.Row, 1) = "a"
ActiveCell.Offset(-1, 0).Select
Wend



End Sub


This will find the last entry in column I and work up from
there.

Tony
-----Original Message-----
This puts a's all the way to row 500. My test data goes
to row 171.

"Tim Zych" wrote in message
...
Sub PutA()
Dim rng As Range, cell As Range
Set rng = Application.Intersect( _
Range("I2:I65536"), ActiveSheet.UsedRange)
If Not rng Is Nothing Then
For Each cell In rng.Cells
If Len(cell.Value) = 0 Then
Cells(cell.Row, "A").Value = "a"
End If
Next cell
End If
End Sub


"Randy Reese" wrote in message
news:1uw1c.28856
...
I need code that if column I ,starting with row 2
(with unknown number
of
rows) is blank, then puts an a in column A.






.