Move row data to a specific sheet if column contains specific word

hi

I have a sheet called 'TimeRecorded' which will contain lots of rows of data.

If a row contains 'invoice' in column H, then the data in that row, preferably as far as column H, should be moved to the next blank row in a sheet called 'Archived'.

I would like the macro to move every row that contains 'Invoice' in column H to be moved.

All help is appreciated as I'm floundering!

Thanks in advance.

Kenneth