Selección de criterios múltiples con VBA

He creado una macro que me permite abrir varios archivos en función de sus nombres y copiar hojas en una en otro libro. Ahora me gustaría agregar algunos criterios, determino la última fila con datos. Usé esto:

lstRow2 = alarms.Cells(alarms.Rows.Count, "A").End(xlUp).Row

Y ahora quiero pasar por cada fila y verificar si la columnaG de cada fila contiene cadenas como "condenser", "pump", etc.) en caso afirmativo, copie la fila pero no toda la fila, solo una serie de columnas que pertenecen a la fila (por ejemplo, para cada fila que coincida con mis criterios, copie esas columnasA-B-X-Z) y finalmente copie todo eso en otra hoja.

Gracias por tu ayud

Respuestas a la pregunta(3)

Su respuesta a la pregunta