Agregar criterios dentro de una función macro

Luis,

gracias por la ayuda prestada anteriormente, he desarrollado todo bien hasta aquí

pero me encontré con otra piedra que no he podido solucionas, puedo hacerla por la vía larga pero habrá algo mas corto para hacer lo siguiente:

'Subtitulo 29 GENERAL DE EQUIPOS, MAQUINAS, SOFTWARES, ETC compra CONVENIO MARCO
Sheets(1).Activate
If UCase(Range("A6")) = "29" _
And UCase(Range("h6")) = "EQUIPOS INFORMÁTICOS" _
And UCase(Range("q6")) = "CONVENIO MARCO" Then
Sheets(1).Activate
Sheets(1).Range("c11:s31").Select
Selection.Delete
Sheets(4).Activate
Sheets(4).Range("F52:F57").Select
Selection.Copy
Sheets(1).Activate
Range("c11").Select
ActiveSheet.Paste
Sheets(1).Range("a1").Select
Application.CutCopyMode = False
End If

como veras en negrito tengo una condición..... Pero si quiero que "H6" evalúe

si dice EQUIPOS INFORMÁTICOS o EQUIPOS COMPUTACIONALES o EQUIPO DE COMUNICACIONES PARA REDES,..........................como lo puedo hacer, intente haciendo lo siguiente.

Sheets(1).Activate
If UCase(Range("A6")) = "29" _
And UCase(Range("h6")) = "EQUIPOS INFORMÁTICOS" _
Or UCase(Range("h6")) = "EQUIPOS COMPUTACIONALES Y PERIFÉRICOS" _
Or UCase(Range("h6")) = "EQUIPOS DE COMUNICACIONES PARA REDES INFORMÁTICAS" _
And UCase(Range("q6")) = "CONVENIO MARCO" Then
Sheets(1).Activate
Sheets(1).Range("c11:s31").Select
Selection.Delete
Sheets(4).Activate
Sheets(4).Range("F52:F57").Select
Selection.Copy
Sheets(1).Activate
Range("c11").Select
ActiveSheet.Paste
Sheets(1).Range("a1").Select
Application.CutCopyMode = False
End If

me funciona pero no con todas ni es tan exacto....o lo tengo que hacer criterio por criterio

gracias y atento a tu respuesta.