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
Bookmarks