No ejecuta correctamente Selet Case

[mp5]

Hola a todos,
He creado un código con select case y falta alguna instrucción para que me funcione correctamente.
El problema es que si pongo por ejemplo en la columna A1 el numero 1, A2 el numero 2, A3 el numero 3 y quiero que en la columna B1 me ponga el dato que corresponde con el numero de caso me lo hace bien solo la primera vez, cuando pasa a la columna B2 me pone el dato de la columna B1 y así sucesivamente.
Pongo el código que tengo.
Gracias por la ayuda.

Sub Numeros_por_datos()
Dim Num As Integer
Dim Datos As String

Num = ActiveCell
ActiveCell.Offset(rowoffset:=0, columnOffset:=1).Select
ENTRADA:
'Comprueba que la celda y columna A tenga datos
If ActiveCell.Offset(rowoffset:=0, columnOffset:=-1).Value = “” Then GoTo SALIR

Select Case Num
Case 1
Datos = "Bueno"
Case 2
Datos = "Malo"
Case 3
Datos = "Regular"
End Select
ActiveCell.Value = Datos
ActiveCell.Offset(rowoffset:=1, columnOffset:=-1).Activate
GoTo ENTRADA
Exit Sub
SALIR:
End Sub

 

[bigpetroman]

Saludos @mp5 coloca

Num = ActiveCell
ActiveCell.Offset(rowoffset:=0, columnOffset:=1).Select

debajo de

ENTRADA:

suerte

[mp5]

Hola,

Gracias por la respuesta, funcióna como quería.

Me queda una línea del código que pruebo y no consigo hacer y es poner un Case Else que si no cumple ningún caso anterior deje vacía la celda y continúe con el código.

Saludos y gracias

[mp5]

Hola de nuevo,

He creado esta instrucción y funciona, lo que no es si es correcta o en un futuro me puede dar problemas.

Case Else
    If ActiveCell.Value <> Num Then Datos = ""

Saludos.