Makro yardım

[kaos64]

Merhabalar sql sunucudan excele veri çekiyorum.
belli periyotta tetikletip gelen kişiler içindede filtre yaptırıyorum sorunsuz çalışıyor.
Bilgisayarda ikinci bir excel dosyası açılınca hata alıyorum yardımcı olabilirmisiniz. (Office 2016)

Sub AUTO_MAKRO()
DoEvents
Application.OnTime Now + TimeValue("00:00:30"), "MAKRO"
End Sub

Sub MAKRO()
DoEvents
Range("A1").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
ActiveWorkbook.Worksheets("Dash").ListObjects("Sorgu1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Dash").ListObjects("Sorgu1").Sort.SortFields.Add _
Key:=Range("Sorgu1[[#All],[zaman]]"), SortOn:=xlSortOnValues, Order:= _
xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Dash").ListObjects("Sorgu1").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
ActiveSheet.ListObjects("Sorgu1").Range.AutoFilter Field:=1, Criteria1:= _
Array("A KİŞİSİ", "B KİŞİSİ", "C KİŞİSİ"), Operator:=xlFilterValues
End With
Range("A1").Select
AUTO_MAKRO
End Sub

 

[Trilenium]

Ne hatası alıyorsunuz ? Hata kodu nedir?

 

[kaos64]

Runtime error'91': object variable or With block variable not set

 

[kaos64]

teşekkür ederim

 

[kaos64]

Hocamlarım tekrar yardım istesem
dosya açıkken 2. bir hata aldım.
Run-time error '1004':
Range sınıfının Select yönetimi başarısız hatası veriyor.
yukardaki kodla