Find a word, select and copy a range and paste it to an empty row in another sheet

Question

I use the following macro to copy a table that starts in sheet 1 A4 and have 4 columns, and paste it to the first empty row in sheet2 column A.

But i have some more t