I have the following macro applied to a selected range of cells:

Private Sub Worksheet_Change(ByVal Target As Range)

Set Rng = Range("B7,B8,B9,B10,B11,B12,B13,B14,B15,B16,B17,B18,C7,C8,C9,C10,C11,C12,C13,C14,C15,C16,C17,C18,D7,D8,D9,D10,D11,D12,D13,D14,D15,D16,D17,D18,E7,E8,E9,E10,E11,E12,E13,E14,E15,E16,E17,E18,F7,F8,F9,F10,F11,F12,F13,F14,F15,F16,F17,F18")
  If Not Intersect(Target, Rng) Is Nothing Then
Application.EnableEvents = False
If Target.Value <> 0 Then Target.Value = "ü"
Application.EnableEvents = True
End If

Set Rng = Range("G7,G8,G9,G10,G11,G12,G13,G14,G15,G16,G17,G18,H7,H8,H9,H10,H11,H12,H13,H14,H15,H16,H17,H18,I7,I8,I9,I10,I11,I12,I13,I14,I15,I16,I17,I18")
  If Not Intersect(Target, Rng) Is Nothing Then
Application.EnableEvents = False
If Target.Value <> 0 Then Target.Value = "ü"
Application.EnableEvents = True
End If

End Sub

(I have split up the ranges because it would not let me fit them all into one range)

With this macro if I type anything other than 0 in, for example cell B7, then a tick appears in cell B7, etc.

This macro works well however when I add a row inside the above range the macro does not apply to the whole range anymore.

I would like to know if there is any way that I could apply this macro to the cells within the above range, including any additional rows that are inserted within the range.