VBA to backfill data in each row

[alexcon]

Looking for a piece of code that can dynamically backfill data as per image above.

It should always fill back to column B and handle additional rows if new rows are added.

Any suggestions appreciated.

 

[alexcon]

Try

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

Where the value in red needs to be the col B header & the value in blue is col D header

Thanks I'm not sure why, but that code changes the headers for some reason.

If I change it to the following it still works without altering the headers (not that I know why):

Try

Sub BackFill()

   With Range("Table1")
      .SpecialCells(xlBlanks).FormulaR1C1 = "=rc[1]"
      .Value = .Value
   End With
End Sub

Thanks again

 

[Fluff]

Your welcome