Sayın @yyhy
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üne

syfA.Cells.Replace What:="0", Replacement:="", LookAt:=xlWhole, SearchOrder _

        :=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False

kodunu ekleyebilirsiniz.