Putting a border on my new column in my table

[dpaton05]

I have a spreadsheet that I have to record new data in every week. This spreadsheet has a table in it, which is one of the new features of excel, being able to put a table in. I have some code that will insert a new column so I can enter the data for the current week.

What I want is to be able to put a border around that new column that is added.

The table name is tblQuals and the code that I have for the new row is below.

    Columns("D:D").Select
        Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("D8").Select
    ActiveCell.FormulaR1C1 = "As of " & Date
    ActiveCell.Font.size = 11
    
    Columns("D:D").ColumnWidth = 18.71
    With Range("E6")
        .Copy Range("D6")
        .Clear
    End With
    
    Columns("E:E").Validation.Delete

Thanks

 

[Peter_SSs]

See if this is more like it. If not, please make sure we can see the column letters in any further images.

Sub Test_v2()
  With ActiveSheet.ListObjects("tblQuals")
    .ListColumns.Add Position:=4
    With .ListColumns(4).Range
      .Resize(, 2).ColumnWidth = 18.71
      .Cells(1).Value = "As of " & Date
      .Cells(1).Font.Size = 11
      .Offset(, 1).Borders.LineStyle = xlLineStyleNone
      .BorderAround xlContinuous, xlThick, xlAutomatic
    End With
  End With
End Sub

 

[dpaton05]

Thank you Peter, that is perfect

 

[Peter_SSs]

Cheers. You are welcome.