autordenado de tabla

Hola Grupo!

Por favor , en esta macro en el evento,Worksheet_Change ¿ puede la
ordenación empezar a partir de la fila A7 , que es donde empieza mi
rótulo de columnas ? . Porque tengo que mantener un titulo para la
tabla en la filas anteriores a A7.
Muchas gracias por la ayuda.

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("a7")) Is Nothing Then Exit Sub '
Columns("a:g").Sort Key1:=Range("d1"), Order1:=xlAscending,
Header:=xlYes

End Sub