Adjust vba to newly inserted column

Question

I wrote a code which gets triggered by the client clicking on a specific cell:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Targ