Ordenação

[Anderson Carlos]

Help!!!!

Estou atualizando minha planilha no excel, logo peço pra ordenar por uma determinada coluna....

Meu PROBLEMA É ESSE... Ele simplesmente não quer ordenar..

Como faço pra fazer essa ordenação???

Segue meu codigo...

Sub Atualiza()

Dim Con1 As Object

Dim Dados As Object

'## SGR

Sheets("SGR").Range("B2").Value = "Posição em " & Dados("data")

Sheets("DadosSGR").Range("A1").QueryTable.Refresh

Sheets("SGR").Range("B5:E45").Sort key1:=Sheets("SGR").Range("C5"), Order1:=xlDescending

'## MPE

Sheets("MPE").Range("B2").Value = "Posição em " & Dados("data")

Sheets("DadosMPE").Range("A1").QueryTable.Refresh

Sheets("MPE").Range("B5:J46").Sort key1:=Sheets("MPE").Range("G5"), Order1:=xlDescending

'## MGE

Sheets("MGE").Range("B2").Value = "Posição em " & Dados("data")

Sheets("DadosMGE").Range("A1").QueryTable.Refresh

Sheets("MGE").Range("B5:L46").Sort key1:=Sheets("MGE").Range("G5"), Order1:=xlDescending

MsgBox ("Planilhas Atualizadas com Sucesso")

End Sub

Desde já Agradeço!!!