Button to add column to the end of a table

[gaudrco]

Hi,

I would like to be able to assign a command button to add a new column to the end of my table. Each new column added should appear to the right of the last new column add. The command button will be on the activesheet but the table in which I am trying to add columns to will be on sheet “Competitor Overview Data”. My table range is from D4:S52 and the name of the range is “CompTable”.

Any ideas?

 

[FormR]

Hi, you could try this to copy the formatting of the cells outside of the table.

Private Sub CommandButton2_Click()
With Sheets("Competitor Overview Data").ListObjects("CompTable")
    .ListColumns.Add (.ListColumns.Count + 1)
    .ListColumns(.ListColumns.Count - 1).Range.EntireColumn.Copy
    .ListColumns(.ListColumns.Count).Range.EntireColumn.PasteSpecial Paste:=xlPasteFormats
End With
End Sub

 

[gaudrco]

Fantastic! I really appreciate all of the help.

There is more that I would like to add to this macro but Iwonder if I should start a new thread. It involves inserting column headers to thesenew columns based off the value of Cell A1. My goal is to have an input cell(A1) where people can input new competitors. When they type in a name to A1 andpress this button, the columns are created with the value of A1 in the header.Then the contents of A1 will clear.

 

[gaudrco]

NEVERMIND! I figured it out and I'm very proud. It was simple. Thanks again everyone!