Ordenación de valores

Debes hacer una macro de la siguiente forma: Te doy dos posibilidades, la verdad no me resultan porque ahora estoy un poco apurado pero intenta modificandolas un poco, si necesitas más ayuda, yo las voy a grabar, otro día las pruebo mejor pero necesito que en unos días me hagas la pregunta nuevamente para acordarme.
Primera posibilidad:
Sub Asignar_valor()
Dim i As Integer
For i = 1 To 20
If ActiveSheet.Range(i, 1).Value = 100 Then
ActiveSheet.Range(i, 2) = 1
End If
If ActiveSheet.Range(i, 1).Value = 300 Then
ActiveSheet.Range(i, 2) = 2
End If
If ActiveSheet.Range(i, 1).Value = 630 Then
ActiveSheet.Range(i, 2) = 3
End If
If ActiveSheet.Range(i, 1).Value = 800 Then
ActiveSheet.Range(i, 2) = 4
End If
If ActiveSheet.Range(i, 1).Value = 1200 Then
ActiveSheet.Range(i, 2) = 5
End If
If ActiveSheet.Range(i, 1).Value = 1500 Then
ActiveSheet.Range(i, 2) = 6
End If
If ActiveSheet.Range(i, 1).Value = 1800 Then
ActiveSheet.Range(i, 2) = 7
End If
If ActiveSheet.Range(i, 1).Value = 2500 Then
ActiveSheet.Range(i, 2) = 8
End If
Next i
End Sub
Segunda Posibilidad:
Sub Asignar_2()
Dim i As Integer
Dim valor As String
For i = 1 To 20
ActiveSheet.Range(i, 1) = valor
Select Case valor
Case "100"
ActiveSheet.Range(i, 2) = 1
Case "300"
ActiveSheet.Range(i, 2) = 2
Case "630"
ActiveSheet.Range(i, 2) = 3
Case "800"
ActiveSheet.Range(i, 2) = 4
Case "1200"
ActiveSheet.Range(i, 2) = 5
Case "1500"
ActiveSheet.Range(i, 2) = 6
Case "1800"
ActiveSheet.Range(i, 2) = 7
Case "2500"
ActiveSheet.Range(i, 2) = 8
End Select
Next i
End Sub
Mucha Suerte y espero que puedas aprovechar esta respuesta.
Chao.
Si quieres en manual de macros, escríbeme con tu dirección de mail.