Validar datos en excel

[Monimo]

Ya modifiqué tu código esto me corre sin ningun problema y me posiciona en A. Puedes probarlo si quieres =) Saludos.

Código vb:

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"
If Intersect(ActiveCell, Range(Rango_a_Comprobar)) Is Nothing Then
Exit Sub
Else
Rellenar_Cabecera
 
    End If
 
 
 
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