This will do what you want:

Range("B2").Select
Range(Selection, Selection.End(xlDown)).Select
Range("B4:B1000").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = "=R[-1]C"

You may have to change B2 to something else; this must be the first cell
with data in it.

--
RyGuy


" wrote:

Hello Everyone,

Just looking for a fairly simple macro (at least I think!)

I have column I and solumns J,K,L, and M. Here is what my data looks
like.

column I Column J Column K Column L
Column M
Advisors Inc 1 2
33 55
1 2
33 55
8 78
11 8787
15 25
303 4455
ABN 33 88
574 44
339 828
57454 344

I have a spreadsheet like this with about 2000 lines. Is there a way
to autofill in the data so that it copies whats in the first cell of
column I, until the next blank row and does that all the way down the
2000 columns? I need to sort a few things and it will make life
easier!

Thanks!