Button to add columns on spreadsheet?

[cloudforgiven]

Hi I am new to excel 2013 vba programming and was hoping if someone can help me. I am trying to add 1 blank column to a spreadsheet based on the user input after they click a button that is an activex control. The column will end based on how many rows there are in my table, meaning if there are 10 rows, after the user clicks the button an inputs where they want the column to be, I should not see a column box on line 11 of the spreadsheet.
Now I've managed to do this my issue is below:

My issue is the cells the button generate does not include the lines or boxes around the cells so that you are aware that its an extension of the table? Any Ideas?
here is what I mean: Imgur: The most awesome images on the Internet notice the I column there are no lines??
Here is code, I think I am missing a copy function after the line shift:=xlRight, but I don't know how to implement it?

I don't want to use macros because since the tables rows and column change I will have to constantly hard-code the range into the macro which i dont want,trust me I tried it an its annoying.

Private Sub CommandButton2_Click()
Dim x As Variant
Dim ColumnNum

x = InputBox("Enter a column that you want to add: ", "What column?")
If x = "" Then Exit Sub
ColumnNum = x

ThisWorkbook.Sheets("Sheet1").Columns(ColumnNum).I nsert shift:=xlRight


ThisWorkbook.Sheets("Sheet1").Columns(ColumnNum).C learContents
End Sub

 

[Joe4]

Duplicate reposted here: http://www.mrexcel.com/forum/excel-questions/980914-button-add-colums-spreadsheet.html

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread. Per forum rules, posts of a duplicate nature will be locked or deleted (rule #12 here: Forum Rules).