Excel VBA: reference table header# in concatenate function - vba

Question

I am trying to add a column (7) to a table and filling the cells in that column with a CONCATENATE of column (6) and (5)
I can make it work by using the header name but would like to use the column number instead. Any suggestions on how to make this work?
This is what I have:
Sub AddColAndName(ws As Worksheet, tbl As ListObject, newColPos As Long, newColName As String, conColPos1 As Long, conColPos2 As Long)
With tbl
.ListColumns.Add newColPos
.HeaderRowRange(newColPos) = newColName
.ListColumns(newColPos).DataBodyRange.FormulaR1C1 = "=CONCATENATE([#FinancialMonthNumberNameShort],[#FinancialYear])"
End With
With ws
.Columns(newColPos).EntireColumn.AutoFit
End With
End Sub
I would like to change the [#FinancialMonthNameShort] to the number passed as argument (conColPos1).. or any other way where I can use an argument passed to the Sub.
Thanks you all for helping.
//JATE

Answer 1

Like this
Option Explicit
Public Sub test()
Dim tbl As ListObject
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet17") 'change as required
Set tbl = ws.ListObjects("Table5") 'change as required
Dim newColPos As Long
Dim conColPos1 As Long
Dim conColPos2 As Long
If conColPos1 > tbl.Range.Columns.Count Or conColPos2 > tbl.Range.Columns.Count Then
MsgBox "Invalid columns for concatenation"
End
End If
conColPos1 = 2
conColPos2 = 3
newColPos = 4
Dim newColName As String
newColName = "NewColumn"
AddColAndName ws, tbl, newColPos, newColName, conColPos1, conColPos2
End Sub
Public Sub AddColAndName(ByVal ws As Worksheet,ByVal tbl As ListObject, ByVal newColPos As Long,ByVal newColName As String,ByVal conColPos1 As Long, ByVal conColPos2 As Long)
With tbl
If newColPos > .Range.Columns.Count Then
.ListColumns.Add .Range.Columns.Count + 1
Else
.Add newColPos
End If
.HeaderRowRange(newColPos) = newColName
.ListColumns(newColPos).DataBodyRange.Formula = "=CONCATENATE([#" & .HeaderRowRange(conColPos1) & "],[#" & .HeaderRowRange(conColPos2) & "])"
End With
With ws
.Columns(newColPos).EntireColumn.AutoFit
End With
End Sub
You could also swop out and use:
.ListColumns(newColPos).DataBodyRange.Formula = "=CONCATENATE([#" & .ListColumns(conColPos1).Cells(1, 1) & "],[#" & .ListColumns(conColPos2).Cells(1, 1) & "])"