Maybe adjust that second line to dynamically target to last row:

If Intersect(Target, Me.Range("A2", Me.Range("a" & Rows.Count).End(xlUp))) Is Nothing Then Exit Sub