如何用vba实现如下操作

Sub 转置()
Dim b%, f%
For b = 1 To Cells(1, 1).End(xlDown).Row Step 6
f = Cells(1048576, 3).End(xlUp).Row
Cells(f + 1, 3) = Cells(b, 1)
Cells(f + 1, 4) = Cells(b + 1, 1)
Cells(f + 1, 5) = Cells(b + 2, 1)
Cells(f + 1, 6) = Cells(b + 3, 1)
Cells(f + 1, 7) = Cells(b + 4, 1)
Cells(f + 1, 8) = Cells(b + 5, 1)
Next
Range("c1:h1").Select
Selection.Delete shift:=xlUp
End Sub

属于工程外包的收费还属正常，毕竟需要付出许多心血及时间。
像这种几分钟就能写完的代码，都不需要用脑子，能帮的就帮下好了嘛。