aflare ultima coloana a unui tabel

[RAMBO]

Buna ziua.
Am un tabel obtinut in urma unui import dintr-un fisier text de tip prn. Tabelul are un numar de coloane variabil (randurile nu reprezinta o problema). Ce cod ar trebui folosit pentru a afla adresa ultimei coloane; de ex daca tabelul este in A1:D40, atunci codul sa returneze D.
In fapt (ca sa nu o mai iau pe ocolite), ceea ce doresc este sa copiez datele din ultima coloana a tabelului (indiferent care o fi ea) de la randul 16 in jos (indiferent cat se intinde in jos).
Multumesc.

[IPP]

Buna ziua

Daca vorbim de informatie stocata intr-un table atunci se poate incerca un cod de genul:

Cod: Selectaţi tot

Sub CopyLast()

'IPP - 13.06.2018

Dim lTbClm As Integer
 lTbClm = ActiveSheet.ListObjects("Table1").ListColumns.Count

ActiveSheet.ListObjects("Table1").DataBodyRange(16, lTbClm).Select
Range(Selection, Selection.End(xlDown)).Copy

End Sub

IP

[RAMBO]

Multumesc foarte mult