Macro to delete rows where col 14 and 16 contain blank cells

I am looking for an excel macro that will first sort my worksheet by Column R (ascending order), then look for any blank formula results in Column N or formula result in Column P < 100,000, and delete those rows. For example, if formula in N54 returns no result, then delete row 54, same for Column P. Then finish Macro by selecting cell A2.

Data to be evaluated and sorted is in range A31:AT1000, please note that table headers are on A31.