Macro copiar celdas a otra según condición

Tengo una duda en una macro que utilizo necesito que me copie de la columna i3 solo las filas que tengan la palabra NO cuyo valor esta en k3:k80 y h3:h80, al pulsar el botón me copia todo, pegando los valores en hoja resumen comenzando en a9 y b9, adjunto la macro se puede corregir este detalle. Gracias juan manuel

Sub Copiar()
Application.ScreenUpdating = False
Set h1 = Sheets("Datos")
Set h2 = Sheets("Resumen")
ori = Array("K54:K80", "H54:H80")
'
f = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
If f < 4 Then f = 4
c = 1
For i = LBound(ori) To UBound(ori)
h1.Range(ori(i)).Copy
h2.Cells(f, c).PasteSpecial Paste:=xlPasteValues
c = c + 1
Next