Auto fill cells with dynamic data

[kelly mort]

I am looking for a script to auto fill cells in col E.

Row 1 is header so from row 2, we go down until we meet a non blank cell .

Then we fill that item down till we meet another non blank cell.

Then we take that item and fill it down too till we meet another item and make that switch.


Column D is used to track our last used row.


Thanks

 

[Norie]

Try this.

With Range("E3", Range("D" & Rows.Count).End(xlUp).Offset(, 1))
    .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    .Value = .Value
End With

 

[kelly mort]

Try this.

With Range("E3", Range("D" & Rows.Count).End(xlUp).Offset(, 1))
    .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    .Value = .Value
End With

Perfectly on point

Why start from E3

Then the line after the with statement is unfamiliar to me.

I need a little explanation.


Regards
Kelly