Problema con una macro,

Luis_p`

Buenas tardes, mira tengo un problema con una macro, te explico...

en la HOJA UNO tengo:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("a6:s6")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
Call listado
End If
End Sub

con esta actualizo la macro automáticamente si cambio los parámetros....

y me llama a esta macro...

(la cree en un modulo)

Sub listado()
Sheets(1).Activate
If UCase(Range("E1")) = "1" And UCase(Range("A6")) = "29" Then
Sheets(1).Activate
Sheets(1).Range("c11:s31").Select
Selection.Delete
Sheets(4).Activate
Sheets(4).Range("f2:q9").Select
Selection.Copy
Sheets(1).Activate
Range("c11").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If
End Sub

esta me hace que con los dos criterios (1 y 29) me desarrolle lo que escribí, todo bien Hasta AHi.

PERO si quiero agregar un criterio.... No me funciona

por ejemplo

If UCase(Range("E1")) = "1" And UCase(Range("A6")) = "29" And UCase(Range("h6")) = "Vehículos" And UCase(Range("m6")) = "convenio marco" Then

no me funciona....

que puede ser...

gracias