Satır ve Sütunların Daralması

[Titi]

Merhaba listview üzerindeki verileri function yardımıyla filtreleme yapıyorum filtreleme yaptıktan sonra excel sayfasındaki satırlar daralıyor bunun çözümünü ise her seferinde tüm sayfayı seçip Giriş / Biçim SATIR ve sütunları gizle diyip sonra göster dedikten sonra düzeliyor bunun önüne nasıl geçebilirim.Kodlar;



Dim r As Long
Dim c As Long
Dim lastrow As Long
Dim li As Object
ThisWorkbook.Sheets("StoktaKalanÜrünler").Activate
lastrow = Sheets("StoktaKalanÜrünler").Cells(Rows.count, 1).End(xlUp).Row
With lststokürün
.View = lvwReport
.CheckBoxes = False
.FullRowSelect = True
.Gridlines = True
On Error Resume Next
For c = 1 To 23
With .ColumnHeaders
.Add , , Sheets("StoktaKalanÜrünler").Cells(1, c), Sheets("StoktaKalanÜrünler").Cells(1, c).Width
End With
Next c
For r = 2 To lastrow
Set li = .ListItems.Add(, , Cells(r, 1))
For c = 2 To 23
li.ListSubItems.Add , , Cells(r, c)
Next c
Next r
End With
End Function