Kod Sadeleştirme (listbox)

[m_baldan]

arkadaşlar günaydın;
aşağıdaki kodu nasıl sadeleştirebilirim. listede kayıt çok az olmasına rağmen 10 15 saniye sürüyor sonuç döndürmesi. bunu kısaltabilir miyiz?
bir diğer husus listboxun 3 ve dördüncü sütun toplamlarını iki ayrı textboxta görüntülemek istesem kodda nasıl bir değişiklik yapmam lazım?
son olarak listbox döndürülen sonuca göre otomatik boyutlanır mı? (içeriğindeki satır sayısına göre kendi boyunu ayarlayabilir mi?)
saygılarımla...
Private Sub CommandButton5_Click()
ActiveWorkbook.Sheets("list").Range("A1:f65536").ClearContents
If ComboBox1 = "" Then
MsgBox "Onaylanmadı." & vbLf & "Aranacak Ürünü Belirtmediniz", vbCritical, " UYARI"
ComboBox1.SetFocus
Exit Sub
End If
With ActiveWorkbook.Sheets("stok_hareketleri")
.Range("a1").AutoFilter Field:=2, Criteria1:=ComboBox1.Value
If .Range("a65536").End(3).Row > 1 Then
.Range("a1:f" & .Range("a65536").End(3).Row).Copy ActiveWorkbook.Sheets("list").Range("a65536").End(3).Offset(0)
End If
.Range("a1").AutoFilter
ListBox2.RowSource = "list!a1:f65536" & ActiveWorkbook.Sheets("list").Range("a65536").End(xlUp).Row
ListBox2.ColumnWidths = 50 & ";" & 150 & ";" & 50 & ";" & 50 & ";" & 50 & ";" & 70
ListBox2.ColumnCount = 6
End With
ComboBox1 = ""
Call Sayici
End Sub

 

[m_baldan]

sanırım sadeleştirmek mümkün değil
başka ve daha hızlı sonuç döndürecek bir yöntem var mıdır?