Remove Columns, Cut and Paste Column, Delete Rows - Macros

[M12NIX]

I've been asked by work, after claiming I'm pretty good with Excel to provide a short cut for the team. I thought it'd be pretty straight forward but after six years out of the I.T game, and never really being very good at VBA, I'm struggling. Please somebody help !!!

A report is exported daily that requires manipulation. A number of columns require deleting, one needs to be cut and pasted and then many of the records deleted. As most of the employees are not users of Excel I need to make this as easy as possible for them.

Firstly I need to delete the following columns which I have the code for (I think)

Sub sbVBS_To_Delete_Specific_Multiple_Columns()
Sheets("Sheet1").Range("C:D,K:O,R:V,X:AK,AM:AO").EntireColumn.Delete
End Sub

Then I need to Cut column I (Cuarto) to column B.

Then I need to delete all rows that do not have the room number (Cuarto) starting with 29**. Some cells are blank. Others are room numbers ranging from 101 to 5538.

Finally the last row of the report needs to go. This is never in the same row number but is always the last row.


Any help would be greatly appreciated. I will add attachments of the actual report when it works.

Is this all possible in one macro ?