For each unique value in col A+B, removing lines based on column C

In the attached dataset, I am looking for a way to accomplish the following:

For each unique value of Order Number [col A] + Line Number [col B], I need a program which will locate the first instance of Next Stat [col D] = 530 and the first instance of col D = 540, deleting the other lines. The output will have two lines remaining for each unique col A+B combination, one where col D = 530 and another = 540.

The data will always be sorted in date/time order prior to running this program. The actual data set has a varying number of lines, usually 1000+.

Can you please show me how to enable this code in my own worksheet, without using the button?


[edit: code works, I have no idea how you did it... but I'm glad you did]