Sub test()
Dim l&, i&
l = 13
For i = 3 To 11 Step 3
Cells(i, "B").Resize(, 3).Copy Cells(l + i, 2)
Cells(i, "E").Resize(, 3).Copy Cells(l + i, 2).Offset(1)
Cells(i, "H").Resize(, 3).Copy Cells(l + i, 2).Offset(2)
Cells(i, "B").Offset(1).Resize(, 3).Copy Cells(l + i, 5)
Cells(i, "E").Offset(1).Resize(, 3).Copy Cells(l + i, 5).Offset(1)
Cells(i, "H").Offset(1).Resize(, 3).Copy Cells(l + i, 5).Offset(2)
Cells(i, "B").Offset(2).Resize(, 3).Copy Cells(l + i, 8)
Cells(i, "E").Offset(2).Resize(, 3).Copy Cells(l + i, 8).Offset(1)
Cells(i, "H").Offset(2).Resize(, 3).Copy Cells(l + i, 8).Offset(2)
Next
Cells(16, "B").CurrentRegion.Borders.LineStyle = xlNone
End Sub