Нужно добить макрос.
Sub Макрос()
Range(ActiveCell, Cells(ActiveCell.Row + 9, ActiveCell.Column)).Copy
Cells(ActiveCell.Row, 4).Activate
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub
Нужно чтобы он зациклился. То есть, повторил всё то же для каждой 10-й ячейки внизу