getting runtime error 9 with a macro to copy visible data to a summary sheets

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.

As below code used but getting runtime error 9 script out of range

Can someone assist what going wrong

HTML Code: 

Please Login or Register  to view this content.

There is a typo. The sheen name summary is not the same.

Set x = Sheets("Summary").Rows(1).Find(.Cells(1, i), lookat:=xlValues, LookIn:=xlWhole)

Just copy the sheet name from the sheet itself and copy in to x.

Tried but unsucessful,

Tried rename sheets as summ as well in the code , still unsucessful.

I do not know how you got this syntax.
Wrong
Set x = Sheets("Summary").Rows(1).Find(.Cells(1, i), lookat:=xlValues, LookIn:=xlWhole)

Right
Set x = Sheets("Summary").Rows(1).Find(.Cells(1, i), LookIn:=xlValues, Lookat:=xlWhole)

Thanks working but not getting the columns N in of workings sheet into summary columns A which remains blank.

Any ideas what is going wrong

The code is not finding "Tariff No Description Origin".

Tariff No Description Origin
is the NOT the same as

Tariff No Description Origin

You need to copy the value from N1 in to code. Make sure that the values in both code and excel match since this is exact look up match.

You also need to make sure the code starts at sheet workings, not active sheet

Set ws = Sheets("workings")

AB33 &xladept thank you both for advise and solution .

Now it works as expected