Macro to select all rows and columns and add a new tab

I am trying to create a macro that select everything in a spreadsheet and then insert a new columns between d and e.

Also I was wondering if you can automatically import a file into a tab and then automatically do a vlookup in the new column that was created.