VBA to identify if row=row +1 to copy all equal rows and paste in sheet based on cell

Hi!

I am having a bit of a struggle and hope you can help me out.
I have two sheets: a Data sheet and a Print sheet. The Print sheet goes down to ~200 rows and the Data sheet down to ~2200 rows. Below is a small cut of how the data is listed

Print sheet:
Capture.PNG

Data sheet:
Capture2.PNG
The goal is to, from the Print sheet, to go through the Data sheet and find the same value in column B; A-A, B-B etc. to then copy/extract all the column B-values and insert them into the Print sheet (column G and H).
However, the existing data cannot be edited. The rows may shift down, but the existing data needs to stay.

Ideal result:
Print sheet:
Capture3.PNG

I used nested for-loops to identify the same column B-values in both sheets, which works. When it comes to identify if row=row+1 i tried to use a do while-loop, and i have managed to identify the number of equal rows in the datasheet.
I need help to stitch everything together!

Hello Borgermester,

Welcome to Excelforum. Be a part of large Excel community. Enjoy Learning.