Im playing around with the code below, to try to get cells A2:A to fill, but
I cant get it working. Now I have this:

Last = Cells(Rows.Count, ActiveCell.Column).End(xlUp).Select
Range("A" & Last).Select
Range(Selection, Cells(1)).Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = "=R[-1]C"

Im trying to fill in all blanks, between A2 and the end of the used range,
with the value in the cells above (basically Ctrl+g, Special, Blanks, =, up
arrow, ctrl+Enter). I cant find the end of the used range. Can someone
please offer some assistance?

Alternatively, I was considering finding the cell address of the last used
cell in Column A, and using that in a macro. Perhaps something like:

'J1 contains a function that finds the cell address of the last nonblank
cell...
Last = Cells(Rows.Count, ActiveCell.Column).End(xlUp).Select
Range("A" & J1).Select
Range(Selection, Cells(1)).Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = "=R[-1]C"


Any ideas on this?




Cordially,
Ryan---


--
RyGuy