Este fórum está sendo desativado

[ramon325]

Prezados, boa tarde. Estou com problemas ao executar esta macro no excel 2013. Funcionava normal no excel 2007. Sempre está retornando a mensagem de "Erro em tempo de execução 1001:O método AutoFilter da classe Range falhou. Eis a macro, e a linha com problema:

Sub Macro1()
'
' Macro1 Macro
' Deletar informações.
'

'
Sheets("PCM").Select
ActiveSheet.Unprotect
ActiveWindow.SmallScroll ToRight:=8
Range("E2:E7").Select
Selection.Copy
ActiveWindow.SmallScroll ToRight:=2
Range("N2:N7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.SmallScroll ToRight:=2
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
Range("F3:F7").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll ToRight:=4
Range("P3:P7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
Range("E3").Select
Sheets("ARQ BASE SAP").Select
Range("A2:l4000").Select
Selection.ClearContents
Range("A2").Select
Sheets("PCM").Select
ActiveSheet.Unprotect
ActiveSheet.Range("$A$27:$AF$800").AutoFilter Field:=1
ActiveWindow.SmallScroll Down:=-3
Range("B27").Select
Selection.AutoFill Destination:=Range("B27:C27"), Type:=xlFillDefault
Range("B27:C27").Select
Range("C27").Select
Selection.AutoFill Destination:=Range("C27:C800"), Type:=xlFillDefault
Range("C27:C800").Select
Range("C27").Select
ActiveWindow.SmallScroll Down:=-6
Range("A1").Select
Sheets("RCs Pendentes").Select
Cells.Select
Selection.ClearContents
Sheets("Ordens Iniciadas").Select
Cells.Select
Selection.ClearContents
Sheets("Ordens Finalizadas").Select
Range("A2:L1000").Select
ActiveWindow.SmallScroll Down:=-12
Application.CutCopyMode = False
Selection.ClearContents
Range("A1").Select
Sheets("MANUTENÇÃO (setor)").Select
ActiveSheet.Unprotect
ActiveSheet.Range("$A$26:$Q$800").AutoFilter Field:=1
Rows("27:800").Select
ActiveWorkbook.Worksheets("MANUTENÇÃO (setor)").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("MANUTENÇÃO (setor)").Sort.SortFields.Add Key:= _
Range("S27:S800"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
:=xlSortNormal
With ActiveWorkbook.Worksheets("MANUTENÇÃO (setor)").Sort
.SetRange Range("A27:S800")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWindow.SmallScroll Down:=-21
Range("A27").Select
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False
Sheets("Seleção").Select
Range("A1").Select
End Sub