Excel - Macro para ordenar valores em ordem crescente em linhas

[ronie.robson]

Saudações a todos.

Estou buscando uma Macro que: Organize em ordem crescente Os 15 números sorteados da Lotofácil, uma vez que a ordem dos sorteios das dezenas é aleatória.

Gostaria que ela fosse executada automaticamente, quando um novo sorteio for adicionado à lista dos demais já ocorridos.

No caso, em minha planilha os dados se encontram da célula B4 até a célula R4.

Já assisti um vídeo no YouTube, mas não consegui fazer com que a macro funcione.

Também encontrei "parte" de uma Macro similar aqui no fórum, mas como mencionei há apenas uma parte dela.

Tenho esse código, mas ele ordena colunas.

Gostaria se possível de modificá-lo para que faça com linhas e automaticamente:

 

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("D:R")) Is Nothing Then

Dim W As Worksheet
Dim UltCel As Range
Dim Linha As Long

    Set W = Sheets("Resultado Oficial")
W.Select

Set UltCel = W.Range("D7500").End(xlUp)

W.Range("D4").Select

Do While ActiveCell.Row <= UltCel.Row

   ActiveCell.Offset(1, 0).Select
   
Loop

Linha = ActiveCell.Row

W.Range("D" & Linha & ":R" & Linha).Select
W.Sort.SortFields.Clear
W.Sort.SortFields.Add Key:=W.Range("D" & Linha & ":R" & Linha), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
       
    With W.Sort
        .SetRange W.Range("D" & Linha & ":R" & Linha)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlLeftToRight
        .SortMethod = xlPinYin
        .Apply
        
    End With
    
    ActiveCell.Offset(1, 0).Select

   End If
   
    
End Sub

[Patropi]

@ronie.robson

 

Fica mais fácil do pessoal ajudar se você anexar a planilha, pois o layout tem influência.

 

[]s

 

 

[ronie.robson]

Agradeço a atenção Patropi. Mas consegui arrumar o código aí acima. Ficou dessa forma

Private Sub Worksheet_Change(ByVal Target As Range)
 If Intersect(Target, Me.Range("D4:R11000")) Is Nothing Then Exit Sub

Dim W As Worksheet
Dim UltCel As Range
Dim Linha As Long

Set W = Sheets("Resultado Oficial")

W.Select

Set UltCel = W.Range("D11000").End(xlUp)

W.Range("D4").Select

Do While ActiveCell.Row <= UltCel.Row

   Linha = ActiveCell.Row
   
   W.Range("D" & Linha & ":R" & Linha).Select
   W.Sort.SortFields.Clear
   W.Sort.SortFields.Add Key:=W.Range("D" & Linha & ":R" & Linha), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
   
   With W.Sort
        .SetRange W.Range("D" & Linha & ":R" & Linha)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlLeftToRight
        .SortMethod = xlPinYin
        .Apply
        
        End With

ActiveCell.Offset(1, 0).Select

Loop

    
End Sub

 

Funciona beleza.