How could this be written in VBA?

Application.ScreenUpdating = False
    
    Range("b2").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(AL!C[5],""manual"")"
    
    Application.ScreenUpdating = True