Comparar fecha y llenar celda con condición

Tengo una hoja que en las celdas combinadas E31:G31, en donde ingreso una fecha, el caso es el siguiente, quisiera que al ingresar una fecha el las celdas combinadas E33:F33, se llene con condiciones, es decir:

Si la celda (E31:G31,) >= Hoy entonces

(E33:F33) = "presente"

si no Si la celda (E31:G31) < Hoy es "pasado"

Si la celda (E31:G31) esta Vacia "sin estado"

espero puedan ayudarme, yp hice este codigo pero se cuelga el excel XD

Recordar  (E31:G31) y (E31:G31) son celdas combinadas

Private Sub Worksheet_Change(ByVal Target As Range)
Dim fecha1 As Date
fecha1 = Range("E31").Value
If fecha1 >= Now Then
Range("E33") = "VIGENTE" 
End If
If fecha1 < Now Then
Range("E33") = "SIN VIGENCIA"
End If
End Sub

me muestra este error cierro y se cuelga el excel.

G R A C I A S...