VBA - Filter, Copy and Paste Visible Columns If Cell has Value

Hey guys,

I need help.

What I want is basically for the macro to filter copy and paste visible columns only if a cell has a Value greater than 0.
I tried this formula, however when I played it step-by-step, it seems like its filtering, copy and pasting even if the value is 0.
What did I do wrong?

Thanks in advance!!

Dim num As Integer
num = 1
For Each i In Range("A1:G1")
If i.Value > 0 Then
ActiveSheet.Range("$A$1:$G$300").AutoFilter Field:=5, Criteria1:="<>"
Else
If i.Value = 0 Then
End If
End If
Next i

Range("A2:A65536").SpecialCells(xlCellTypeVisible).Copy
Sheets("Sheet1").Select
Destination = Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
Sheets("Sheet2").Select