Copy Cells from Every Other Two Rows to Merged Cells on Another Sheet

[AmyZZZZZZZ]

Hi, I am new to VBA and I am trying to copy texts from cells every other two rows from one sheet to a list of merged cells on another sheet.
For example, I want values from B3,B6,B9,etc. to go to another sheets matching with merged cells (A2:A9),(A10:A17),(A18:A25) and so on.

Could anyone help me with that?
Thanks a lot!!

 

[rpaulson]

try this on a copy of you file
make sure your original sheet it the active one.

Adjust the code for the name of you destination sheet.

Sub Do_it()
For r = 3 To Range("B" & Rows.Count).End(xlUp).Row Step 3
wr = 8 / 3 * r - 6
With Worksheets("Sheet2")
.Range(.Cells(wr, 1), .Cells(wr + 7, 1)) = Cells(r, "B")
End With
Next r
End Sub

hth,
Ross