Fill the values & replace the old values by vba code depends upon 2 col

[johnodys]

Dear experts

I have set of data in multiple range ,need to fill the and replace the old values depends upon two column values (AH & AL)

IF Active Calls is "TATA" In AH:AH, and IF Action Onwer Col is "Blank",in AL:AL
Then Fill the Blank cells by Values "SVC" in the col Action Owner,Then Replace Old values by "Updates Awaited" in Status Col(AM:AM)


find the attachment & basic code take this code for this task

Dim lngLastRow    As Long
Dim rngCell       As Range

Application.ScreenUpdating = False

With Worksheets("OPENCALLS")
    lngLastRow = .Cells(.Rows.count, "B").End(xlUp).Row
End With

For Each rngCell In Range("AH1:AH" & lngLastRow) 'PARTNER NAME
    Select Case Cells(rngCell.Row, "Ac").Value
        Case Is = "Cancelled"
            rngCell.Value = "CANCEL"
            Cells(rngCell.Row, "AL").Value = "TATA"
            Cells(rngCell.Row, "AM").Value = "CANCEL IN CCI PORTAL"
        Case Is = "Closed"
            rngCell.Value = "CLOSED"
            Cells(rngCell.Row, "AL").Value = "TATA"
            Cells(rngCell.Row, "AM").Value = "CLOSED/COMPLETED IN CCI PORTAL"
        Case Is = "Complete"
            rngCell.Value = "CLOSED"
            Cells(rngCell.Row, "AL").Value = "TATA"
            Cells(rngCell.Row, "AM").Value = "CLOSED/COMPLETED IN CCI PORTAL"
    End Select
  
Next rngCell

Application.ScreenUpdating = True

End Sub