Deleting specific row after entering data in another specific cell

macedosf Inspired by the information in this link:

https://docs.microsoft.com/en-us/office/troubleshoot/excel/run-macro-cells-change 

You could adapt the code like this:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCell As Range

    Set KeyCell = Range("A9")

If Not Application.Intersect(KeyCell, Range(Target.Address)) _
           Is Nothing Then

    Rows("4:4").Select
    Selection.Delete Shift:=xlUp

End If
End Sub

....and place it in the in the code section for the worksheet (i.e. not in a separate module).