Code needs to group rows below active cell

Code needs to group rows below active cell

Have a worksheet with 1000+ rows with a pattern of text on first row and
then have 3 blank rows. I need to copy the text from colum B first row
down through the next 3 rows. Then I need to designate those 3 rows as a
group of the initial row. I have got the below code to work for the first
two lines, but then it stops on line 3, I get a Compile error: Syntax
error. I know from having recorded the intital macro from doing the steps
that the begining of line 3, Rows, is needed, but can't seem to find the
right syntax to tell the system that the rows to be grouped are the next
3.
Any assistance will be greatly appreciated.