Erro em tempo de execuçao

[Everton Sousa]

Pessoal bom dia!

Eu criei uma macro no vba para ela classificar os meu valores da planilha em ordem decrescente, no computador onde eu criei esta funcionando normalmente porem quando coloco em outro pc esta dando o senguinte erro.

 

Mensagem de erro do VBA

“Erro em tempo de execução ‘438’:

O objeto não aceita esta propriedade ou método” 

 

segue abaixo o código depurado (em amarelo esta o erro que eu não consegui identificar)

 

Sub ORDEM_DECRECENTE_A_PARTIR_DA_LINHA_5()

'

' ORDEM DECRECENTE A PARTIR DA LINHA 5

'

 

'

Range("A1").Select

    Selection.End(xlDown).Select

    Selection.End(xlDown).Select

    Selection.EntireRow.Delete

   

    Columns("B:B").Select

    Selection.Copy

    Columns("A:A").Select

    Selection.Insert Shift:=xlToRight

    Application.CutCopyMode = False

    Rows("5:5").Select

    Range(Selection, Selection.End(xlDown)).Select

    ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Clear

    ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Add2 Key:=Range("A5"), _

        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal

    With ActiveWorkbook.Worksheets("Plan1").Sort

        .SetRange Range("A5:XFD1048576")

        .Header = xlNo

        .MatchCase = False

        .Orientation = xlTopToBottom

        .SortMethod = xlPinYin

        .Apply

    End With

   

    Columns("A:A").Select

    Selection.Delete Shift:=xlToLeft

    Range("A1").Select

    Selection.End(xlDown).Select

    Selection.End(xlDown).Select

    Range(Selection, Selection.End(xlToRight)).Select

    Selection.Copy

    Range("A1").Select

    Selection.End(xlDown).Select

    Selection.End(xlDown).Select

    ActiveCell.Offset(1, 0).Activate

    ActiveSheet.Paste

    Range(Selection, Selection.End(xlToLeft)).Select

    ActiveCell.FormulaR1C1 = "Soma"

    Range("A1").Select

  

End Sub

Desde já agradeço