VBA to copy all rows in any sheet with 1 in column A and copy entire row to specific sheet

Hi,
I have a work book with multiple tabs that depending on the project will have different names.

I would like to summarise the entire row of any sheet/tab to a another sheet/tab called Take off.

Because the names of the sheets can change depending on the project, I was thinking that a search of the entire note book for the "1" in column A was the best approach.


Ultimately any row with 1 within column A would be copied into the "Take off" sheet.


Appreciate your help.

Lui