However, if you really want to do this with a macro, here is one you can
use...

Sub NumberColBItems()
Dim X As Long, LastRow As Long, Index As Long
With ActiveSheet
LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
For X = 1 To LastRow
If Len(.Cells(X, "B").Value) 0 Then
Index = Index + 1
.Cells(X, "A").Value = Index
End If
Next
End With
End Sub

--
Rick (MVP - Excel)


"Rick Rothstein" wrote in message
...
Do you really need a macro? If I understand your question correctly, you
can put this formula in A1 and copy down for as many rows as you ever
expect to have data in...

=IF(B1="","",COUNTA(B$1:B1))

Using this formula would make the numbering automatic without your having
to remember to run the macro as the data in Column B changes.

By the way, I did not see a reason why you mentioned Column C in your
write up.... it appears to have nothing to do with your question.

--
Rick (MVP - Excel)


"Stenbeck" wrote in message
...
I am trying to create an macro that will evaluate text in a column B for
eg.
If any text data exist in B1 make the count 1 and put the count number in
column A. If text data exist in B2 make the count 2 and and so on. If
for
example B4 does not have text, I want the macro to skip to row B5 and
continue the count. The number of rows varies so I want to stop counting
when
it reaches the last row of the file. Data is always in column C is until
the
very last row.