Macro Copy and Paste from one sheet to another sheet only where there is information

Hi,

I am looking for a macro that can help me by copying and pasting data from one sheet into another sheet in a column that is empty but where some rows have data in.

Attached is a sample sheet.

I want to copy the information / number in the Main Sheet B5 and paste it in Sheet "GP", column A just in the rows where there are data in column B. The sample sheet is small, but I'm currently working on a document where the data in the GP Sheet can have as much as 1 000 rows with information and as little as 1 row with information in. The rows with information in varies from time to time.

The header in row 1 on the GP Sheet should always be there.

The last sheet on this file show the result that I am looking for.

I would really appreciate it if someone can assist.