If/Then statement to copy/paste range of cells

I am trying to copy/paste a range of cells if a particular cell is equal to the cell below it.

In the attached file I am going for something like:
If B3 = B2, then copy C2:I2 , paste in C3:I3.
repeat all of the way down

I use the following code a good bit and have tried to manipulate it in different ways to get the desired result, but have not had any success. I realize this code below starts at the bottom and works up and I could do that as well if I sorted the attached spreadsheet by ascending column B, ascending column A (instead of descending as it is now)

Please Login or Register  to view this content.

thank you!

Does this work for your needs?

Please Login or Register  to view this content.

Another:

Please Login or Register  to view this content.

This is perfect! Thank you!

Another good one as well. Among other things, I made the mistake playing with the ActiveCell.FormulaR1C1 format instead of just using the easier ActiveCell.Offset.

Thank you!