Corrección de macro copiar celdas a otra hoja

Para corregir la macro necesito que me busque la palabra NO en columna i3 hasta i80 y copie los valores que están en columna K3:K80 Y H3:H80 para ser enviados a hoja resumen comenzando en A9 anexo la macro

Sub Copiar()
Application.ScreenUpdating = False
Set h1 = Sheets("Datos")
Set h2 = Sheets("Resumen")
ori = Array("K3:K80", "H3: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
End Sub