This snippet looks at column A and finds the last used cell (even if there
are some empty cells in the column) You should be able to make this code
fit your needs.

Dim lrw As Integer

lrw= Cells(Rows.COUNT, "A").End(xlUp).Row

This one counts the number of used cells in column A (good if there are no
empty cells)
lrw = WorksheetFunction.Counta(Columns(1))

in either case the fill range could be written as
Set FRange = Sheets("Sheet1").Range("B1:B" & lrw)

--
steveB

Remove "AYN" from email to respond
"bpreas - ExcelForums.com" wrote in
message ...
What I have is a macro that inserts a column and fills the cells in
that column with certain text. I only need the cells filled down to
the row where the existing data in the adjacent column ends.