Delete Remaining Rows after Sort applied

[icqa_analyst]

I am using "Mid" formula to extract the term "Open" into a new cell, sorting by "Open" and want to delete all data that is sorted and that data only. However, running this code I am getting a run time error '424': object required. I simply can't get past, any advice? Below is the code, everything works up to and including the red text, the blue text is where I get my error.

Sorry all, I'm a newbie to the forum and to VBA and just learning both. Apologies for any inaccuracies or omissions in my postings.

Sub OpenShiftDelete()
'
' OpenShiftDelete Macro
'

'

Please Login or Register  to view this content.

End Sub

[AliGW]

Administrative Note:

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: this change is not optional. No help to be offered until this moderation request has been fulfilled.)