dato per azionare macro

Allega un files spiegando bene oppure non posso aiutarTi

>>>If Not Intersect(Target, Range("A8:A307")) Is Nothing Then
Non avvii la macro se scrivi in A1:A7

Se Vuoi fare due cose differenti
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A7")) Is Nothing Then
'fai quello che vuoi
ElseIf Not Intersect(Target, Range("A8:A307")) Is Nothing Then
Call nometuamacro
End If
End Sub

Casomai sarebbe If Target.Row < 8 Then