VBA HELP! Adding Formula's into VBA

[Fuisdale2]

Thank you for reading my post.

I have the below formula which I would like to change into VBA code. The spreadsheet that has this code in there are 43 columns with similar formula's in them which makes the documenter slow.

Could I get your advice on how to write this as VBA code and then for the code to run and apply the formula to the cells on the spreadsheet.

=IF(Update_Report!D6<>(SDB_Data!A8),"MHL TAB:"&Update_Report!D6&" vs SDB TAB:"&SDB_Data!A8,"")

 

[JackDanIce]

n/a

 

[Fuisdale2]

I tried using this VBA code and it worked for simple formula. But the above gives me an error.

Range("B7:B2162").Formula = " "

 

[JackDanIce]

At a guess, try:

Sub Macro1()

    Dim strFrm  As String
    Dim LastRow As Long
    
    strFrm = "=IF(Update_Report!D6<>(SDB_Data!A8),@1MHL TAB:@1&Update_Report!D6&@1 vs SDB TAB:@1&SDB_Data!A8,@1@1)"
    
    LastRow = Cells(Rows.Count, 2).End(xlUp).row
    With Range("B8")
        .Formula = Replace(strFrm, "@1", """")
        .Resize(LastRow - 7).FillDown
    End With
      
End Sub