Problem adding column to ListObject, naming it and attempt to Copy or Copy/Paste into it?

I have a process which maps columns from one sheet to another within the same workbook driven by a Field (/Column) mapping table.
The table contains source column number and name and target column number and name.
Earlier versions of code used a combination of range/cells notation to successfully map from input to output.
As the target table is ultimately defined as a ListObject I thought about having the transfer code:
1. Use conventional Range techniques to add and copy in the first column.
2. Based on this single column range, create and name a ListObject.
3. Thereafter add a new column (via ListColumns(n).add)
4. Give the new column a name
5. Copy using ListColumns.DataBodyRange references for both source and target columns copy or Copy/Paste the data to the new column

The process fails at stage 5. I have checked the column references in 'Locals' and using 'mouse-over'.
The defined listobject target table in the physical sheet is recognised and the column named as expected. It is in Column 2 as expected.
There MAY be something missing in the syntax and have tried an extra .Range but to no avail.

Code snippet:

Please Login or Register  to view this content.

Hope someone out there can help
NDG1944

Where exactly does it fail in the posted code and what's the error message?

Does this work?

Please Login or Register  to view this content.

Norie,
Sorry, I got pre-occupied with the narrative.
Ref my original code snippet; that failed with "Run-Time error '438': Object doesn't support this property or method" invariably on the 'Destination' side of the Copy or Copy/Paste.
The Copy stage of the Copy/Paste combination works in VBA AND shows the column with the 'selected' border on the source sheet.
Ref your suggestion: I think that this was my first attempt perhaps using strTargetColName rather than intTargetColno.
I have also tried your suggestion previously; this looks the most compact and perhaps speediest method but I haven't got far enough to assess efficiency.
I can't remember if I used an intermediate ListColumn object and worked the copy to that target object.
Regards, Nigel

Nigel

I did some testing, albeit with simple tables/data etc, and the code I suggested appeared to work.

If you attached a sample workbook with representative data I could look into it further.

PS When I originally saw the thread my first thought was to copy the data and then create the table.

A Range object does not have a Paste method. You would have had to use PasteSpecial instead.