Makro hata

[kaos64]

Merhabalar aşağıdaki kodla ilgi yardımcı olabilirmisiniz
pc de başka excel dosyası açık olursa hata alıyorum.
Run-time error'9'
Subscript out of range

Sub AUTO_MAKRO()
DoEvents
Application.OnTime Now + TimeValue("00:00:30"), "MAKRO"
Application.OnTime Now + TimeValue("00:00:30"), "MAKRO1"
Range("A1").Select
End Sub
Sub MAKRO()
DoEvents
Dim wb As Workbook
Dim ws As Worksheet
Dim lo As ListObject

Set wb = ThisWorkbook
Set ws = wb.Worksheets("Dash")
Set lo = ws.ListObjects("Sorgu1")

lo.QueryTable.Refresh BackgroundQuery:=False

lo.Sort.SortFields.Clear
lo.Sort.SortFields.Add Key:=ws.Range("Sorgu1[[#All],[zaman]]"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With lo.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A1").Select
AUTO_MAKRO
End Sub
Sub MAKRO1()
DoEvents
Dim wb As Workbook
Dim ws As Worksheet
Dim lo As ListObject

Set wb = ThisWorkbook
Set ws = wb.Worksheets("Misafir")
Set lo = ws.ListObjects("Sorgu2")

lo.QueryTable.Refresh BackgroundQuery:=False

lo.Sort.SortFields.Clear
Sheets("Misafir").Select
Range("Sorgu2").Select
Selection.Copy
Sheets("Dash").Select
Range("H2:O2").Select
ActiveSheet.Paste
Range("Sorgu1[[#Headers],[adsoyad]]").Select
Sheets("Dash").Select
Range("Sorgu1").Select
End Sub

Sub MAKROSTOP()
On Error Resume Next
Application.OnTime RunWhen, "MAKRO", False
Application.OnTime RunWhen, "MAKRO1", False
End Sub