Auto Insert Blank Row For Each Cell That Ends in....

Hi,
This is a helpful code that auto inserts a blank row above the Total line to maintain the proper formula range. How do you replace Range("Total") to be, For each cell in column D that ends in "Monthly % Change", it would still insert a blank row above the Total line?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Cells(Range("Total").Row - 2, Range("Total").Column).Address Then
    If Target.Value <> "" Then
        Rows(Target.Row + 1).EntireRow.insert Shift:=xlDown
    End If
End If
End Sub

Thanks,
Ricky