Macro To Update Data in Cell Based On Value In Adjacent Cell

[Howardc]

Where corporate signage and Generator appears in Col A, I would like the narrarive in Col E that appears in the same row as these two items to be changed to ADMINISTRATION. When activating the Macro only the narrative In Col E pertaining to Corporate Signage in Col A is changed to ADMINISTRATION

Your assistance in resolving this is most appreciated

Sub ChangeTextInColumnE()
        Const sA As String = "Corporate Signage"
         Const sB As String = "Generator"
                
        Const sE As String = "Administration"
        Const sF As String = "Administration"
        Dim lr As Long, r As Range, vA As Variant, i As Long
        lr = Range("A" & Rows.Count).End(xlUp).Row
        Set r = Range("A2", "E" & lr)
        vA = r.Value
        Application.ScreenUpdating = False
        For i = LBound(vA, 1) To UBound(vA, 1)
            If UCase(vA(i, 1)) = UCase(sA) Then r.Cells(i, 5) = sE
             If UCase(vA(i, 1)) = UCase(sB) Then r.Cells(i, 5) = sF
        Next i
        End Sub