When filtering repeated data, leaving the title(header) alone without deleting it

Hello everyone,

I was assisted with a macro that deletes all other data other than ones that repeats in 4 consecutive patterns.
However, doing so, also delets the headers for the data (data starts from A1) and was wondering ways to savour the header.

Following is the code used,

Please Login or Register  to view this content.

Note that the Header is located in Row 1, thanks in advance for your help ( It would also be great for someone to explain what it means to have -1 to 1 loop and step -1.)

Is this solved?

If you solve a problem yourself before anyone else has responded, please take a moment to describe your solution, chances are some other member will benefit.

Also,

I have added code tags to your post. As per forum rule 3, you need to use them whenever you put any code in your post. Please add them in future. In order to put code tags, either type [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] at the end of it, OR you can highlight your code and click the # icon at the top of your post window.