VBA Conditional Formatting Issue

I am having issues setting conditional formatting via VBA. I am setting it this was since when the code deletes my rows the formatting is deleted as well. The problem I have is, it does not properly set the formatting. It should be setting at follows but it mixing the two together in a sense.

Border:

• If A5 is not blank it should add cell borders through T to the bottom of the entire workbook.

Gray Fill:

• If A5 is not blank it should fill column Q & R to the bottom of the entire workbook.

It is difficult to provide a sample workbook, but if required I will do my best to get a mock up.

My current code is as follows:

Please Login or Register  to view this content.

EDIT: I am using Excel 2013.