vba copy specific columns with visible rows to another sheet

[JEAN1972]

I have a subtotal for range of data (sheet name workings) , however need to copy specific columns with visible rows to another sheet called (summary ).
See attached expected results of summary sheet in same workbook

Looking for a vba code to copy to last data range to a new sheet in same workbook.

The columns may vary as it depends on the worksheet , so the code should be modulable to adapt to any situation.

[JOHN H. DAVIS]

Will it always be columns from the last 7 columns? Will the headers be the same as your sample?

[JEAN1972]

Will it always be columns from the last 7 columns? Will the headers be the same as your sample?

No its a hardware template but for a food template after supp qty there are 3 add headers litres , sugar, alcohol making it 10 columns

Then tarif description origin ,supp qty, litres sugar,alcohol ,extended ,,details to be copied to summary sheet

Hope it helps

See attached example

[JOHN H. DAVIS]

Can you attach a sample representing original data and Summary sheet layout?

[JEAN1972]

Can you attach a sample representing original data and Summary sheet layout?

See attached a food template

[JOHN H. DAVIS]

Maybe:

Please Login or Register  to view this content.

[JEAN1972]

Maybe:

Please Login or Register  to view this content.

Hi
Tested,getting a run time error 9 subscript out of range
at this line Set x = Sheets("Summary").Rows(1).Find(.Cells(1, i), lookat:=xlValues, LookIn:=xlWhole).
Could you advise where I am going wrong .

Regards
Jean