Este fórum está sendo desativado

[LeoHenrique]

Boa tarde a todos !

Não consegui ainda, criar um código que busque as informações em outra planilha e já colocando em ordem decrescente. Segue planilha em anexo detalhando.

Se alguém puder ajudar, agradeço imensamente.

Leandro Moreira

[osvaldomp]

Segue uma sugestão sem Loop.

Código: Selecionar todos

Sub ReplicaDadosAirSpot()
 Application.ScreenUpdating = False
 Sheets("Linhas").[F3:F55] = ""
 With Sheets("Plan2")
  .AutoFilterMode = False
  .[D4:F4].AutoFilter 3, "AIR SPOT"
  .Range("D5:D" & .Cells(Rows.Count, 4).End(3).Row).Copy
  .AutoFilterMode = False
  .[AA1].PasteSpecial xlValues
  .[AA:AA].RemoveDuplicates Columns:=1, Header:=xlNo
  .[AA:AA].Sort Key1:=.[AA1], Order1:=xlDescending
  .Range("AA1:AA" & .Cells(Rows.Count, 27).End(3).Row).Copy
  Sheets("Linhas").[F6].PasteSpecial xlValues
  .[AA:AA] = ""
 End With
 Application.ScreenUpdating = True
End Sub