Please wrap the code in your last two posts.

You can shorten the column deletion code. There is no need to select the columns. Here is a quick example to delete colUmns A, B, F, G, H, P, and q:
Range("A:C, F:H,P:Q").Delete
You should be able to paste my macro to the end of the one you posted. and have it run that way. Remove the End Sub at the end of your macro and the Sub Name() from the beginning of mine.