Fill down

[psrs0810]

[TABLE="width: 500"]
<tbody>[TR]
[TD]Cost Center 1234
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Total Cost Center 1234
[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]
I have a table of information where, in column A there are title showing the beginning and end of each group.
I want to fill down these titles.

In the example above, I want to fill down the Cost Center 1234 in the empty spaces.

Thank you

 

[MARK858]

Try either of the codes below on a test copy of your data.

Sub FillCell1()
    Dim fCell As Range
    On Error Resume Next

    For Each fCell In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row). _
        SpecialCells(xlCellTypeBlanks).Areas
        fCell.Value = fCell(1).Offset(-1).Value
    Next

    On Error GoTo 0
End Sub

Sub FillCell2()
    On Error Resume Next

    With Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
        .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
        .Value = .Value
    End With

    On Error GoTo 0
End Sub

The code above assumes that you have a header row, if not change A1 to A2.

 

[psrs0810]

I have a header in 1:5. would I change the coding to start in 6?
Thanks

 

[MARK858]

Yes change A2 to A6.