Rango de celdas a1:a1000

Buenas noches, CADIPAS, espero estés muy bien, quisiera pedirte un favorsote, si me puedes ilustrar con la solución de un problema que se me presenta con una MACRO, en donde intento validar una información en la columnas A1:A1000, que me regrese resultados en las columnas BX, CX, ya lo hace, pero solo me lo representa, se me posiciono por segunda vez en la CELDA ACTIVA, porque después de dar la tecla enter, no me representa el resultado si no hasta que me posiciono de nuevo en la regla Activa.
Otro detalle, es que si me posiciono fuera del rango de las celdas A1:A1000, también me despliega resultados y quiero evitarle.
¿Cómo puedo resolver mi problema?
Aqui te envio el codigo de la MACRO
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Value = "SUB1" Then
ActiveCell.Offset(0, 1).Value = "DESC1"
ActiveCell.Offset(0, 2).Value = "CLASIF1"
ElseIf ActiveCell.Value = "SUB2" Then
ActiveCell.Offset(0, 1).Value = "DESC2"
ActiveCell.Offset(0, 2).Value = "CLASIF2"
ElseIf ActiveCell.Value = "SUB25" Then
ActiveCell.Offset(0, 1).Value = "DESC25"
ActiveCell.Offset(0, 2).Value = "CLASIF25"
Else
ActiveCell.Offset(0, 1).Value = "MERCANCIA NO REGISTRADA"
ActiveCell.Offset(0, 2).Value = "PREGUNTE A SERANA POR CLASIFICACION"
End If
Gracias, y un abrazo.
VictorAH
End Sub