Validar datos en excel

[Monimo]

Yo tengo esto y así me funciona sin problema:


Private Sub auto_open()

ThisWorkbook.Worksheets(1).OnEntry = "Comprobar_Datos"
End Sub

Private Sub Comprobar_Datos()

Dim Rango_a_Comprobar As String

Rango_a_Comprobar = "F4:F10000"


Rellenar_Cabecera

End Sub


'Hasta aqui todo bien pero cuando intento posicionarme en la primera celda de la fila, una vez que valida se cambia a la columna B en vez de mantenerse en la columna A.

Private Sub Rellenar_Cabecera()

Dim Fila As Integer
Fila = ActiveCell.Row

Dim Colu As Integer
Colu = ActiveCell.Column

If Cells(Fila, Colu - 5).Value = "" Then
Cells(Fila, Colu - 5).Select
End If
End Sub