Eğer tabolda 0 (sıfır) olan değerlerin görünmesini istmiyorsanız. Kod sayfasındaki en sondaki
Application.ScreenUpdating = True
satırının hemen üstünesyfA.Cells.Replace What:="0", Replacement:="", LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
kodunu ekleyebilirsiniz.