Yardım makro hızlandırma

merhaba ,
örnekte ki gibi 24 adet makro yazdım , fakat veri sayısı artıkça çok yavaş çalışmaya başladı
önceden anında tepki veren makro şimdi 15 sn de tepki vermeye başladı
300 butonuna bastığımda aşağıda ki makro çalışıyor, makro da nasıl bir değişiklik yaparsam daha hızlı çalışmasını sağlayabilirim
teşekkürler

Sub ÜÇYÜZ3()
'
' ÜÇYÜZ3 Makro
'

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual


ActiveSheet.Range("$A$6:$M$1000").AutoFilter Field:=4, Criteria1:="300"
Range("M1").Select
ActiveCell.FormulaR1C1 = "300"
Range("M2:M3").Select
Selection.ClearContents
Range("K4:K5").Select
Selection.ClearContents
ActiveSheet.Range("$A$6:$M$1000").AutoFilter Field:=5
ActiveSheet.Range("$A$6:$M$1000").AutoFilter Field:=6
ActiveSheet.Range("$A$6:$M$1000").AutoFilter Field:=14
ActiveSheet.Range("$A$6:$M$1000").AutoFilter Field:=15
Range("E1").Select

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
'
End Sub

excel e ayrılan cpu bilişenlerini artırarak çözüm bulabilirmiyim acaba

sorunu buldum ama çözümü bulamadım yardımcı olurmusunuz
excel dosyamda 2 adet sayfa var
1. sayfa liste
2. sayfa biten

1. sayfa (liste) da 100 e yakın satır da stok var , biten stokları bittiği zaman 2. sayfa (biten) kopyalıyorum biten stokları ileri tarihlerde lazım olması için (1500 e yakın satır var )

2. sayfayı sildiğimde makro salise hızında çalışıyor

sorun şu ki , 1.sayfa (liste) çalıştırdığım makro 2. sayfa ( biten ) de ki veri fazlalığından dolayı yavaş çalışıyor
2.sayfayı sildiğimde jet hızında çalışıyor. makronun 2. sayfada ki verilerden etkilenmemesini nasıl sağlarım