Select offset variable offset cells

Hi

I have a attached a workbook as this is hard to explain
Sheet2 is my desired result

Sheet 1 has list of account numbers in column A, and associated products in column B

Every account is broken up by the word "Laso" in column B

what i need is, on a macro to press a button, and sheet1 is converted into what sheet 2 looks like

so the number in A1, the cells in B2:B6 are related to that

so in sheet 2, A1 needs to be repeated as per the related numbers in B

hopefully the attachement can explain better

thanks in advance

also please note, this list could go up to row 1000

Try the attached.

thank you kind sir