evento Worksheet_Change 2

[howling]

buenas noches amigos de la programacion  me podrian ayudar  con el siguiente codigo en el evento change, este codigo que esta mas abajo me deja en las columnas "J"  e "I" fecha y hora respectiva mente pero cuando envio los datos a la hoja consolidad me deja en las 2 primeras celdas debajo de los titulos hora y fecha escritas. he intentado de varias formas sacarlo pero no me resulta nada podrian ayudarme porfavor

este es el codigo

If Not Application.Intersect(Target, Range("A:E")) Is Nothing Then

Range("J" & Target.Row) = Date

Range("I" & Target.Row) = Format(Now, "hh:mm")

End If

 

y aqui dejo el archivo si lo nesecitan de ante mano gracias por la ayuda

 

Libro2.xlsmFetching info...

[Toldeman]

Hola.

Prueba a poner un condicional:

	If Not Application.Intersect(Target, Range("A:E")) Is Nothing Then
If Range("A9") = "" Then Exit Sub
Range("J" & Target.Row) = Date
	Range("I" & Target.Row) = Format(Now, "hh:mm")
	End If

Saludos.

[howling]

buenas tardes toldeman gracias por tu pronta respuesta funciono perfectamente gracias doy por solucionado este tema