Adding a new column to end of a named range

[gaudrco]

I have a named range on sheet Competitor Comparison Data called “CCData”. I would like to add a new column to the end of the table every time I press a button. With each button press, a new column is added to the end of the range and is then included in the named range. The new column should retain the formatting of the previously column entirely. Here is a bit of code that I’ve tried to use but it’s not right.

Private Sub CommandButton1_Click()

With Sheets("Competitor Comparison Data").Range("CCData)+1 .EntireColumn.Insert
        .Range("CCData)-1 .EntireColumn.Copy
        .Range("CCData).EntireColumn.PasteSpecial Paste:=xlPasteFormats
End With
End Sub

 

[gaudrco]

And just to clarify, "CCData" is not an actually table, its a range of cells that I defined with Name Manager

 

[NoSparks]

maybe like this

Private Sub CommandButton1_Click()
    With Sheets("Competitor Comparison Data").Range("CCData")
        .Offset(, .Range("CCData").Columns.Count).Resize(, 1).EntireColumn.Insert
        .Offset(, .Range("CCData").Columns.Count - 1).Resize(, 1).EntireColumn.Copy
        .Offset(, .Range("CCData").Columns.Count).Resize(, 1).EntireColumn.PasteSpecial Paste:=xlPasteFormats
    End With
End Sub

 

[gaudrco]

This did everything except resize the defined range 'CCData'. The reason I need the defined range to include the newcolumns added is because I need each added column to be at the end of the definedrange. With the code you put together, the new columns are always added to thesame column instead of expanding to the right. I think this code is great but just needs onemore piece that says include the new column in the defined range.

 

[NoSparks]

Oops, missed that part

Private Sub CommandButton1_Click()
    With Sheets("Competitor Comparison Data").Range("CCData")
        .Offset(, .Range("CCData").Columns.Count).Resize(, 1).EntireColumn.Insert
        .Offset(, .Range("CCData").Columns.Count - 1).Resize(, 1).EntireColumn.Copy
        .Offset(, .Range("CCData").Columns.Count).Resize(, 1).EntireColumn.PasteSpecial Paste:=xlPasteFormats
        .Name.RefersTo = .Name.RefersToRange.Resize(, .Columns.Count + 1)
    End With
End Sub

 

[gaudrco]

Great! And lastly, where do I rename this new column? I want the name to be = "C2" on the active sheet.

 

[NoSparks]

What you're asking would be under Name Manager on the formulas ribbon.

If what you mean is to put a header in the last column of the new "CCData" range then try this immediately before the red line

        .Offset(, .Range("CCData").Columns.Count).Resize(1, 1).Value = Range("C2").Value

 

[gaudrco]

Perfect! I did mean that and its everything I wanted. Thank you!