Aktif olan sutuna filtre uygulama

[bornovalı1]

Merhaba;

Sub KOD()
Set s1 = Sheets("palet")
Set s2 = Sheets("stok koli")
Set s3 = Sheets("stok palet")
Set s4 = Sheets("depo dizilim")
s1.Range("E1:E417").Copy
s2.Cells(1, s2.UsedRange.Columns.Count + 1).PasteSpecial xlPasteValues
s1.Range("H1:H421").Copy
s3.Cells(1, s3.UsedRange.Columns.Count + 1).PasteSpecial xlPasteValues
s1.Range("H3:H417").Copy
s1.Cells(2, 14).PasteSpecial xlPasteValues
Application.CutCopyMode = False
s2.Cells(1, s2.UsedRange.Columns.Count).AutoFilter
s3.Cells(1, s3.UsedRange.Columns.Count).AutoFilter
s2.Cells(1, s2.UsedRange.Columns.Count).AutoFilter
s3.Cells(1, s3.UsedRange.Columns.Count).AutoFilter

End Sub

Şöyle bir kod kullanıyorum.
s1 den aldığı bilgiyi üç ayrı sayfaya yapıştırıyor.
s2 ve s3 te her seferinden bir kolon kaydırarak yapıyor bu işlemi
S2 ve s3 te ikinci satıra filtre koyuyorum.
İlave olarak 0 olanlarıda filtrelemek istiyorum ama bir türlü yapamadım.
Forumda buna benzer bir örnekte bulamadım yardımcı olursanız sevinirim