Tem uma macro que imprime o romaneio de peças aqui da empresa, porém eu quero que imprima somente as peças que tem quantidade maior que 0.

segue o codigo:

Sub RomaneiosII()
'
' RomaneiosII Macro
'

'
Sheets("Programação").Select
Range("B2:H39").Select
Range("H2").Activate
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,1,,,TRUE,,FALSE)"
ActiveWindow.SmallScroll Down:=-42
Sheets("Kanban Pré-Montagem").Select
ActiveSheet.ListObjects("Tabela14").Range.AutoFilter Field:=8, Criteria1:= _
Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "60", "61", "62", "="), Operator:= _
xlFilterValues

ActiveSheet.ListObjects("Tabela14").Range.AutoFilter Field:=4, Criteria1:= _
"PC"
Range("A6:K6").Select
Range(Selection, Selection.End(xlDown)).Select
Workbooks.Add
Windows("Abastecimento Almox 05 2011B.xlsm").Activate
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,1,,,TRUE,,FALSE)"
ActiveWindow.SmallScroll Down:=-99

ActiveSheet.ListObjects("Tabela14").Range.AutoFilter Field:=4, Criteria1:= _
"EMP"
ActiveWindow.SmallScroll Down:=-18
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,1,,,TRUE,,FALSE)"
ActiveWindow.SmallScroll Down:=0

Sheets("Programação").Select
ActiveWindow.SmallScroll Down:=-21
Range("B2:H39").Select
Range("H2").Activate
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,1,,,TRUE,,FALSE)"

Range("D45").Select
Selection.Copy
Range("C45").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-51
End Sub