Rodrigo,
Boa noite!

Não está dando para baixar sua planilha nesse momento mais será que com gravação de macros não resolveria seu problema?

Com macro nao da, pois ele copia exemplo a coluna inteira, e depois cola, porem quando é feito o filtro padrao como existe formulas e muitas vezes nao tem valor na celula somente formulas, acaba organizando tambem as coluna vazias, oque deicha o projeto todo desconfigurado.ok.

Boa noite!!

Você deveria explicar melhor.
Veja se é isso

Sub AleVBA_Organizar()
    Application.ScreenUpdating = 0
    Worksheets("RPA").Range("A:J").Copy
    Worksheets("Dados").Range("A1").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    Worksheets("Dados").Range("A:E").EntireColumn.Delete
    With ActiveSheet.Sort
        .SortFields.Clear
        .SortFields.Add Range("A1"), xlSortOnValues, xlAscending
        .SetRange ActiveSheet.Cells(1).CurrentRegion
        .Header = xlYes
        .Apply
    End With
    Application.ScreenUpdating = 1
End Sub

Baixe o arquivo e faça os teste
http://www.sendspace.com/file/4kw41e
Att

Boa notie Alexandre , borigado por sua responta, er aisso que precisava, porem so faltou uma coisa, coloquei o exeplo novamente em anexo, é que quando esses valores viessem para a palnilha dados e organizados do geitinho que vc fez mesmo, so que em vez de ficar na celula A1, gostaria que ficasse a partir da celula a20 por exemplo.ok.

obrigada novamente.

Rodrigo, veja se assim te atende.

Option Explicit

Sub FF_VBA_Organizar()
Dim rngToSort       As Range
Dim strEnderecoDe   As String
Dim strEnderecoPara As String
Dim lUltimaLinha    As Long
    
    With Worksheets("RPA").Range("F1").CurrentRegion
        strEnderecoDe = .Address
        strEnderecoPara = .Offset(19, -5).Address
    End With

    Worksheets("Dados").Range(strEnderecoPara).Value = Worksheets("RPA").Range(strEnderecoDe).Value
    
    lUltimaLinha = Worksheets("Dados").Cells(.Rows.Count, 1).End(xlUp).Row
    
    Set rngToSort = Worksheets("Dados").Range("A20:E" & lUltimaLinha)
    With rngToSort
        .Sort Key1:=.Range("A1"), Order1:=xlAscending, Header:=xlYes
    End With
    Set rngToSort = Nothing
    
End Sub

Bom dia
Deu erro na hora da execução de seu codigo Fernando, se pudesse dar uma olhada fiz uma observação na planilha anexa, eu nao consegui adaptar o outro codigo do Alexandre, o dele funcionou. eu so precisava que ao invez de colar a partir da prieira linha e coluna, colasse a partir da linha 20. entende?

Obrigado mais uma vez...

Qual erro e qual linha ?

boa tarde nessa linha

Sub FF_VBA_Organizar()
Dim rngToSort       As Range
Dim strEnderecoDe   As String
Dim strEnderecoPara As String
Dim lUltimaLinha    As Long
    
    With Worksheets("RPA").Range("F1").CurrentRegion
        strEnderecoDe = .Address
        strEnderecoPara = .Offset(19, -5).Address
    End With

    Worksheets("Dados").Range(strEnderecoPara).Value = Worksheets("RPA").Range(strEnderecoDe).Value
    ' NESSA LINHA "Rows" (erro de compilação referencia invalida ou nao qualificada
    lUltimaLinha = Worksheets("Dados").Cells(.Rows.Count, 1).End(xlUp).Row
    
    Set rngToSort = Worksheets("Dados").Range("A20:E" & lUltimaLinha)
    With rngToSort
        .Sort Key1:=.Range("A1"), Order1:=xlAscending, Header:=xlYes
    End With
    Set rngToSort = Nothing
    
End Sub

Boa noite!!

Para por apartir da linha 20, tente algo como...

Sub AleVBA_Organizar()
Dim LastRow As Long
  Application.ScreenUpdating = 0
    Worksheets("Dados").Range("A:J").Clear
     LastRow = Worksheets("RPA").Range("A" & Rows.Count).End(xlUp).Row
    Worksheets("RPA").Range("A1:J" & LastRow).Copy
    Worksheets("Dados").Range("A20").PasteSpecial Paste:=xlPasteValues
     Application.CutCopyMode = False
    Worksheets("Dados").Range("A:E").EntireColumn.Delete
     Call Classfica
  Application.ScreenUpdating = 1
End Sub

Olá

desculpe a demora.
É verdade deu um erro, justo na versão que eu te mandei.

Já o corrigi, segue novo arquivo.

Valeu muito obrigado..