Creating a macro that will delete row based on non matching cell to previous line

I have attached a file of some sample data to assist in my question.

Basically I would like a VBA macro that will keep the lines that are highlighted yellow based upon the fact that G6 matches the value of 672 and then it has a negative amount in I6 that is equal to H5*-1. If all of this criteria is true then keep the two matching rows. If not then delete all other rows that do not match this criteria.

Is this possible? Thank you for your help!! I will leave good feedbackSample Date for VBA.xlsx

Yes always match column G values with 672

This is what i have so far but it keeps deleting everything

Sub test()

Dim r As Long, LR As Long

LR = Range("G" & Rows.Count).End(xlUp).Row

For r = LR To 2 Step -1
With Range("M" & r)
.Formula = "=IF(RC[-6]=""672"",IF(R[-2]C[-4]=(R[-1]C[-5]*-1),""Yes"",""No""),""No"")"
.Value = .Value
If .Value = "No" Then Rows(r).EntireRow.Delete
End With
Next

End Sub