Roberto_sv,

Boa Tarde!

Tenta assim:

Sub MACRO2()
Dim UltimaLinha As Long
UltimaLinha = Sheets("QUEIMADOS - ELDORADO III").Cells(Cells.Rows.Count, 5).End(xlUp).Row
If UltimaLinha < 2 Then UltimaLinha = 2
'
' MACRO2 Macro
' ORDENAÇÃO DA PLANILHA POR DATA DE VENCIMENTO
'

'
Range("B2:AD" & UltimaLinha).Select
ActiveWorkbook.Worksheets("QUEIMADOS - ELDORADO III").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("QUEIMADOS - ELDORADO III").Sort.SortFields.Add Key _
:=Range("E2:E" & UltimaLinha), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("QUEIMADOS - ELDORADO III").Sort
.SetRange Range("B2:AD" & UltimaLinha)
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Boa tarde,

Funcionou perfeito, mas, tenho outras planilhas de controle em baixo dessa planilha, se eu executar a macro, ela vai pegar e misturar as planilhas, isso eu deixei de mensioner, desculpe, será que há uma forma de substituirmos o "ultima linha por uma linha marcada no final da planilha, pois, quendo eu coloco linhas eu insiro, e essa célula marcada sempre é a última.
Grato.

Roberto,

O 5 na linha de código onde eu pego a última linha significa que estamos pegando a última linha da colun a E que contenha dados. Minha sugestão seria a de você não ter dados (que não deseja) pelo em baixo dessa coluna. Se todo, for impossível isso, você pode pegar a última linha por qualquer outra coluna que não tenha dados abaixo dela. Para isso basta modificar o 5 pelo número da coluna que você quer, sabendo que a contagem começa do 1. (A=1, B=2 e assim sucessivamente). Desse modo, por exemplo, você pode colocar essa sua marcação, por exemplo, numa última coluna (onde não vai mais ter dados abaixo dela) e modificar apenas o número 5 para o número dessa última coluna.

e se eu colocar na ultima célula dessa primeira planilha a palavra fim, será que consigo na fórmula a macro entender como a última linha que tem que marcar no range.