Hi,

Try this VB solution

Sub Fill_EM_UP()
lastrow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
Set MyRange = Range("A9:A" & lastrow)
For Each C In MyRange
If C.Value = "" Then
C.Value = C.Offset(-1).Value
End If
Next
End Sub

Mike

"JMay" wrote:

I have Column A8:A150
A8 = SI-11
A9 Blank
A10 Blank
A11 Blank
A12 = SI-12
A13 Blank
A14 Blank
A15 = SI-13
......

To acheive what I want - Which is:
A8 = SI-11
A9 = SI-11
A10 =SI-11
A11 =SI-11
A12 = SI-12
A13 =SI-12
A14 =SI-12
A15 = SI-13
......

When within Excel (No VBA)
I highlight A9:A14, Edit, GoTo, SpecialCells.. Blanks, OK
then with 1st cell highlite (by excel as A9) I arrow-up to A8
and Press Control+Enter -- It works FIne

When I record a Macro to do same
I get A9:A14 = SI-11 << the macro is overwriting my NON-Balank Cells
rather than reproducing from where they start downward to the next Non Blank;
I'm not hoding my mouth right, or What?

My current code:

Set mynewRng = Range("A9:A" & MylrA)
With mynewRng
.SpecialCells(xlCellTypeBlanks).Select
.FormulaR1C1 = "=R[-1]C"
End With


Thanks in advance for any assistance....

Jim