Macro1.bas

Sub Macro1()
    Range("A1:C10").Select
    Selection.AutoFilter
    Range("C1").Select
    ActiveSheet.Range("$A$1:$C$10").AutoFilter Field:=3, Criteria1:="0"
    Range("A3:A9").Select
    Selection.Copy
    Range("E1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Selection.AutoFilter
End Sub