Macro to autofill intermittent blank cells to the right

[alexcon]

Greetings can anyone please assist with a button macro to autofill cells to the right as per the colored-in cells in screen clip below:


https://ibb.co/ew2Sbb


Whenever the value changes, it fills to the right according to that value, then when a new value is found, it fills to the right according to the new value and so on.
Would also like it cope when more columns and rows are added later.

 

[footoo]

If you want fill to the last used column on the sheet :

Sub FillBlanks()
Dim lr%, lc%
lr = Cells(Rows.Count, "A").End(xlUp).Row
lc = Cells(1, Columns.Count).End(xlToLeft).Column
With Range([C2], Cells(lr, lc))
    On Error Resume Next
    .SpecialCells(xlCellTypeBlanks) _
        .FormulaR1C1 = "=IF(RC[-1]="""","""",RC[-1])"
    On Error GoTo 0
    .Value = .Value
End With
End Sub

If you want to fill each row to the last value in each row :

Sub FillBlanks2()
Dim lr%, r%, lc%
lr = Cells(Rows.Count, "A").End(xlUp).Row
For r = 2 To lr
    lc = Cells(r, Columns.Count).End(xlToLeft).Column
    On Error Resume Next
    Range(Cells(r, "C"), Cells(r, lc)).SpecialCells(xlCellTypeBlanks) _
        .FormulaR1C1 = "=IF(RC[-1]="""","""",RC[-1])"
    On Error GoTo 0
Next
With Range([B2], Cells(lr, ActiveSheet.UsedRange.Columns.Count))
    .Value = .Value
End With
End Sub

 

[alexcon]

If you want fill to the last used column on the sheet :

Sub FillBlanks()
Dim lr%, lc%
lr = Cells(Rows.Count, "A").End(xlUp).Row
lc = Cells(1, Columns.Count).End(xlToLeft).Column
With Range([C2], Cells(lr, lc))
    On Error Resume Next
    .SpecialCells(xlCellTypeBlanks) _
        .FormulaR1C1 = "=IF(RC[-1]="""","""",RC[-1])"
    On Error GoTo 0
    .Value = .Value
End With
End Sub

If you want to fill each row to the last value in each row :

Sub FillBlanks2()
Dim lr%, r%, lc%
lr = Cells(Rows.Count, "A").End(xlUp).Row
For r = 2 To lr
    lc = Cells(r, Columns.Count).End(xlToLeft).Column
    On Error Resume Next
    Range(Cells(r, "C"), Cells(r, lc)).SpecialCells(xlCellTypeBlanks) _
        .FormulaR1C1 = "=IF(RC[-1]="""","""",RC[-1])"
    On Error GoTo 0
Next
With Range([B2], Cells(lr, ActiveSheet.UsedRange.Columns.Count))
    .Value = .Value
End With
End Sub

Thank you very much for this!