Are your existing values, hard values, or the result of formula?
In that case tryCode:Sub BackFill() With Range("B:D").EntireColumn .SpecialCells(xlBlanks).Formula = "=rc[1]" .Value = .Value End With End Sub
What are the header names in your table?
Sub BackFill()
With Range("Table1[[#All],[COLOR=#ff0000][RSQ3][/COLOR]:[COLOR=#0000ff][P3][/COLOR]]")
.SpecialCells(xlBlanks).FormulaR1C1 = "=rc[1]"
.Value = .Value
End With
End Sub