Ordenar Coluna Excel 2016 VBA 32bits X Excel 201064Bits

[Serafim Neri]

Preciso de Ajuda, por favor amigos....

Tenho uma planilha que foi criada no EXCEL 2016 Sistema 32Bits (Notebook), só que no meu trabalho utilizo EXCEL 2010 Sistema 64Bits.

Preciso Ordenar a coluna B em crescente sempre que um novo ID Criado pelo usuário exemplo (CT-0001.P ou CT-0001.A1...) para gerar o próximo ID para o Usuário. no meu Notebook onde foi criado funciona perfeitamente só que no trabalho não. no mais tudo funciona.

Código no 32bits 2016

'Excel 2016

Private Sub Crescente()
' ActiveWorkbook.Worksheets("Clientes").AutoFilter.Sort.SortFields.Clear
' ActiveWorkbook.Worksheets("Clientes").AutoFilter.Sort.SortFields.Add2 Key:= _
' Range("B1:B2000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
' :=xlSortNormal
' With ActiveWorkbook.Worksheets("Clientes").AutoFilter.Sort
' .Header = xlYes
' .MatchCase = False
' .Orientation = xlTopToBottom
' .SortMethod = xlPinYin
' .Apply
' End With
'___________________________________________________________________________________________________

'Excel 2010 64bits

Private Sub Crescente()
ActiveWorkbook.Worksheets("Clientes").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Clientes").Sort.SortFields.Add Key:= _
Range("B1:B2000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
:=xlSortNormal
With ActiveWorkbook.Worksheets("Clientes").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

End Sub
Obs: Quando substitui o código da erro de formatação na minha planilha...

Será que tem algum código que sirva para os dois. Obrigado