How To Replace Cells With Specific Value In Excel?

Question

I have the following:

Private Sub Worksheet_Activate()
    If [E2] <> [G1] Then Range("H9:H44").Value = "Pendente"
End Sub