1-İki ayrı tablonuzu tek tabloya toplamışsınız. Tek filtrelemeyle sorgulama doğru çalışmıyor. o yüzden iki ayrı sorgu kullandım. 
2-Tasarım modunda bir buton oluştururup. Denetime Makro1 'i atayın.
3-Excelin titremesine 
Makroya

Application.ScreenUpdating = False
    Sheets("GELİRLER").Columns("B:F").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("B1:F2"), CopyToRange:=Range("B14:F14"), Unique:= _
        False
        Sheets("GİDERLER").Columns("B:F").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("G1:K2"), CopyToRange:=Range("G14:K14"), Unique:= _
        False
     
Application.ScreenUpdating = True


koyu mavi satırları eklersen fazla titremez.