Ordem Crescente

Resolvendo o Problema

1. Declaramos as variáveis

   Dim i As Integer
   Dim j As Integer
   Dim temp As Integer
   

2. Copiamos os dados para a coluna "C", mantendo os números originais intactos

   Range("A3:A100").Copy Destination:=Range("C3:C100")
   

3. Definimos a área com dados, através da propriedade CurrentRegion, como o objeto Rng

   Set Rng = Cells(3, 3).CurrentRegion
   

4. Criamos dois loops For Next um dentro do outro. Enquanto o primeiro loop está no termo i, o segundo loop irá de i + 1 até o final da lista com dados.

   For i = 2 To Rng.Count
       For j = i + 1 To Rng.Count
   

5. Com a condicional If Then determinamos que toda vez que o número do segundo loop for menor do que o do primeiro, estes números trocarão de posição

   If Rng.Cells(j) < Rng.Cells(i) Then
       temp = Rng.Cells(i)
       Rng.Cells(i) = Rng.Cells(j)
       Rng.Cells(j) = temp
   End If
   

6. Esta lógica é seguida até o final da lista de dados, organizando toda a sequência em ordem crescente

       Next j
   Next i
   

Código Consolidado

    Sub Resolucao()

    Dim i As Integer
    Dim j As Integer
    Dim temp As Integer

    Range("A3:A100").Copy Destination:=Range("C3:C100")

    Set Rng = Cells(3, 3).CurrentRegion
        For i = 2 To Rng.Count
            For j = i + 1 To Rng.Count
            If Rng.Cells(j) < Rng.Cells(i) Then
                temp = Rng.Cells(i)
                Rng.Cells(i) = Rng.Cells(j)
                Rng.Cells(j) = temp
            End If
            Next j
        Next i

    End Sub