Fala pessoal..estou com um problema na macro ao executar aparece o erro abaixo:

ERRO DE TEMPO DE EXECUÇÃO 1004
O METODO SHEETS DO OBJETO_GLOBAL FALHOU

poderiam me ajudar com este erro?

abaixo a macro para analise.

Sheets("POSIÇÃO (2)").Select
ActiveWorkbook.Worksheets("POSIÇÃO (2)").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("POSIÇÃO (2)").AutoFilter.Sort.SortFields.Add Key:= _
Range("G13:G61"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
:=xlSortNormal
With ActiveWorkbook.Worksheets("POSIÇÃO (2)").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Sheets("Grafico de desempenho").Select
ActiveWorkbook.Worksheets("Grafico de desempenho").AutoFilter.Sort.SortFields. _
Clear
ActiveWorkbook.Worksheets("Grafico de desempenho").AutoFilter.Sort.SortFields. _
Add Key:=Range("O2:O23"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Grafico de desempenho").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Sheets("POSIÇÃO").Select
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 23
ActiveWindow.ScrollRow = 24
ActiveWorkbook.Worksheets("POSIÇÃO").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("POSIÇÃO").AutoFilter.Sort.SortFields.Add Key:= _
Range("O39:O53"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
:=xlSortNormal
With ActiveWorkbook.Worksheets("POSIÇÃO").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub