Issues with merge script

I got something that doesn't work with this script.
It Open a directory with several xlsx files, copy them in one file and close 'em.
The line underliend SHOULD select the last column just copied and move to the first column of the file they've copied in, but it returns No Object error.

Any help?

Private Sub Macro()
Const Path As String = "PATH"
    
    Dim FileName As String
    Dim WS As Worksheet
    Dim WS2 As Worksheet
    Dim WS3 As Worksheet
    Dim LastRow As Long
    Dim LastRow2 As Long
    
    Set WS2 = ThisWorkbook.Worksheets(1)
    FileName = Dir(Path & "\*.xlsx", vbNormal)
    Application.ScreenUpdating = False
    Do Until FileName = ""
        If FileName <> ThisWorkbook.Name Then
            Set WS = Workbooks.Open(Path & "\" & FileName).Sheets("Foglio1")
            LastRow = WS.Cells(500, 1).End(xlUp).Row
            WS.Range("A1").Resize(LastRow, 7).Copy WS2.Cells(LastRow2 + 1, 1)
            LastRow2 = WS2.Cells(WS2.Rows.Count, 1).End(xlUp).Row
            WS2.Cells(1, WS2.Columns.Count).End(xlToLeft).Column.Copy WS2.Cells(LastRow2 + 1, 1)
            WS.Parent.Close 0
        End If
        FileName = Dir()
    Loop
    Application.ScreenUpdating = True
End Sub

Thanks

Any clue how to move the last column of the cells block just copied in (or better i can "ask" to read the column header and depending if it return me it's the one i'm looking for, chose that one) and move at the first sheet column?

I have several excel files in a directory.
The script open each, copy the content and paste in a singular sheet, consequentially.
Each time it copy a file i would like to read the header of the cells copied, find the header "codici" which is not always in the same column, select the column with that header, hust copied and move in the 1st column of the sheet they're copied in (or if it's easyer in a new sheet)

Is it possible?

Each file i open contain a table with 2-3-4-5 columns, one of these columns header is "Codici".
The script open the file, copy all the table and paste into the new file.
It paste starting from the last row+1 of the previus table copied.
So i've a sheet with several different tables copied one under the last row of the previus one.
I would like for each table, move the column "Codici" at the column A of the sheet i'm coping the table into..

Originally Posted by Norie

What is this line of code meant to do?

WS2.Cells(1, WS2.Columns.Count).End(xlToLeft).Column.Copy WS2.Cells(LastRow2 + 1, 1)

It appears to be copying the last column of data in WS2 to column 1 below existing data.

Could you attach a workbook with some sample data?

Perhaps that will help clarify things.

The one you quote is what doesn't work.. I expected it move the last column i just copied in to the 1st column but it does not..
I'm going to paste an example, give me a minute to access the pc i'm working on.

Originally Posted by Norie

Why do you want to move the last column?

Isnt't the codici column you want to move?

Yes, it usually is the last column, but there're some case it's not.. so would be better select it through header.

That's an example with 2 files copied..
I would like to read that, in first part it find the column C is the one with header "CODICE" and move at the column A, and going on if can read the header "CODICE" is in the column D and then move the column D to the column A and so on.. Understandable?

POS.	DESCRIZIONE	CODICE	
1	FIANCO DX INOX ARMONIA	14.02652	
2	SCHIENALE INOX ARMONIA	14.02650	
3	FIANCO SX INOX FORATO ARMONIA	14.02651	
4	COPERTURA CASSETTO NERO ARMONIA	37.00788	
5	CALAMITA	95.01528	
6	VITE TIELLE CILIN. PZ 3,5X10 ZB	91.00267	
7	PERNO ATTACCO RAPIDO ARMONIA	12.00040	
8	VITE INOX TS CROCE M 4X10	91.00251	
9	VITE TIELLE CILIN. PZ 3,5X16 ZB	91.00275	
10	BACINELLA MACCHINA ARMONIA	37.00806	
11	GRIGLIA BACINELLA ARMONIA	14.02648	
12	GUARN. OR 3056	87.00019	
13	PERNO PER BACINELLA ARMONIA	16.00212	
14	GUARN. OR 2025	87.00032	
15	DADO INOX M 5	92.00047	
16	LAMIERINO BACINELLA ARMONIA	14.02681	
17	CASSETTO FONDI ARMONIA	37.00807	
18	DADO FLANGIATO ZN M 4	92.00018	
19	AGGANCIO SCARICO POWER CLEANER	37.05067	
POS.		DESCRIZIONE	CODICE
1	●	VITE TE ZN M 4X45	91.00098
2	●	ROSETTA GREMB. INOX 4X12	93.00033
3	●	SQUADRETTA FIX BACINELLA ARMONIA	14.05002
4	●	DISTANZIALE ARMONIA	37.00833
5	●	BACINELLA X  BLOCCO ZION	37.00852.L1
6	●	BLOCCO BACINELLA ARMONIA	14.05003
7	●	VITE TC CROCE ZN M 4X12	91.00038

(The dots have no header, but they're in a column)

here it is

Is it ok? Sorry my english sucks..