bom dia a todos

eu tenho uma MAcro que copia de uma planilha para outra

preciso de uma ajuda de vcs
preciso que o critério para copiar e buscar seja qualquer valor acima de 0 da coluna H
e que copie e cole de forma sequencial toda a vez que execute

a Macro que eu tenho é essa

Sub Extrair_dados()
    ultimaCelula = Plan1.Cells(ActiveSheet.UsedRange.Rows.Count, 1).Row
    lin = 3
    For i = 1 To ultimaCelula
          If Plan1.Cells(i, 8) = "1" Then
          Plan2.Cells(lin, 4) = Plan1.Cells(i, 1)
          Plan2.Cells(lin, 5) = Plan1.Cells(i, 4)
          Plan2.Cells(lin, 6) = Plan1.Cells(i, 3)
          Plan2.Cells(lin, 7) = Plan1.Cells(i, 16)
          Plan2.Cells(lin, 8) = Plan1.Cells(i, 17)
          Plan2.Cells(lin, 9) = Plan1.Cells(i, 6)
          Plan2.Cells(lin, 10) = Plan1.Cells(i, 7)
          Plan2.Cells(lin, 11) = Plan1.Cells(i, 8)
          Plan2.Cells(lin, 12) = Plan1.Cells(i, 14)
          lin = lin + 1
       End If
    Next
End Sub