Need to copy header row in group to all rows below header; stop if blank and repeate

I have a spreadsheet with multiple groups of data, each with a header row and each group separated by a blank row. I need a macro to copy the header row for each group and paste in column A for each corresponding row below, stop when blank row reached and repeat. See attached file for example. Thanks in advance for any help.