Macro, to match criteria in one column and copies results into a new tab

Hey Guys

I am looking for some help

Aim – Create a macro, every time a row has the word “Internet” in column B(which the row will be highlighted in grey) i need the relevant rows below (In green)copied into a new spreadsheet in relation to that row

For Example Row 156. This has the word internet
i need row 156,157,158,159 copied to a new tab
The macro needs to continue to row 160,and copy 160, 161,162 to the new tab and append to the bottom of the previous results etc etc
I have copied desired results into a tab called “Results”

Where it gets to row 182, “Card not present” it needs to skip until the word internet is found and the macro continue

Thank you for taking your time at looking at my post ,

Looking forward to your help

Regards
D

Amended to take out rows 182.

Hi AB33
Thank you for your post
Looking at the results, it seems to be pulling more values then necessary
Macro Needs to look at column B, If any cell in grey says “internet” it need to return the green cells beneath it. If the following green cells says “-’E-COMMERCE” for eg all green cells below that need to be ignored.

it only needs to valuate when a grey cell = internet

looking at your vba code i can see you have got Like "-’CARD NOT PRESENT"
I think this needs to be removed

Have you tried the amended code?
The code does not look at cell colours, but at the word "Internet" and copies that row until the next word. It also excludes if the cell has a string ""-’CARD NOT PRESENT""