Hjælp til Macrofejl

Hej

Jeg har optaget nedenstående macro, men den driller...

Jeg har nogle formler stående i A1:I1

De bliver kopieret ned i A3:I3 og derefter fyldt ud i alle celler helt ned til 6000.

Derefter skal den markere og fjerne alle der ikke har X eller er tomme i G og derefter alle der er tomme eller 0 i kolonne H.

Macroen kører, men der ender med alligevel med at være værdier med 0 i kolonne H...

Jeg kan ikke kode, så det er en macro jeg har optaget og så forsøgt rydde op i...

Håber i kan hjælpe, tak!

Sub Fjern()
'
' Fjern Makro
'

'
    Application.ScreenUpdating = False
    Range("A1:I1").Select
    Selection.Copy
    Range("A3").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Copy
    Range("A4:I6000").Select
    ActiveSheet.Paste
    Rows("2:2").Select
    Application.CutCopyMode = False
    Selection.AutoFilter
    ActiveSheet.Range("$A$2:$I$6000").AutoFilter Field:=7, Criteria1:="=0", _
        Operator:=xlOr, Criteria2:="="
    Rows("3:3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    ActiveSheet.Range("$A$2:$I$6000").AutoFilter Field:=7
    ActiveSheet.Range("$A$2:$I$6000").AutoFilter Field:=8, Criteria1:="0"
    Rows("21:21").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    ActiveSheet.Range("$A$2:$I$6000").AutoFilter Field:=8
    Range("A2").Select
    Selection.AutoFilter
    Application.ScreenUpdating = True
End Sub