Copy the above cell & make "bold" - on repeat pattern for each unique value

[Theemeadelis]

I have a large set of data where there is a blank row after each unique cell value in column N - sample showing below:

I am after a formula or VBA which will fill each of those blank cells in column N with the same value as the cell above it, but marked in bold.

e.g.

Is someone able to help?

 

[Joe4]

Try this code:

Sub MyFillBlanksMacro()

    Dim lr As Long
   
'   Find last row in column N with data
    lr = Cells(Rows.Count, "N").End(xlUp).Row
   
'   Populate blank cells with value above and bold
    With Range("N1:N" & lr).SpecialCells(xlCellTypeBlanks)
        .FormulaR1C1 = "=R[-1]C"
        .Font.Bold = True
    End With
   
'   If you want to change the formulas to hard-coded value, uncomment the next line
    'Range("N1:N" & lr).Value = Range("N1:N" & lr).Value
   
End Sub

 

[Theemeadelis]

Try this code:

Sub MyFillBlanksMacro()

    Dim lr As Long
  
'   Find last row in column N with data
    lr = Cells(Rows.Count, "N").End(xlUp).Row
  
'   Populate blank cells with value above and bold
    With Range("N1:N" & lr).SpecialCells(xlCellTypeBlanks)
        .FormulaR1C1 = "=R[-1]C"
        .Font.Bold = True
    End With
  
'   If you want to change the formulas to hard-coded value, uncomment the next line
    'Range("N1:N" & lr).Value = Range("N1:N" & lr).Value
  
End Sub

Perfect - thank you

 

[Joe4]

You are welcome.
Glad I was able to help!