Спасибо User91504, за то, что подтолкнул меня попробовать макрос MS.
Рабочее решение имеет очень простой код:
Sub Paste_transpose() ' ' Paste_transpose Macro ' ' ActiveCell.Offset.Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True End Sub
И есть возможность добавить комбинацию клавиш для этого макроса - нет необходимости добавлять какие-либо кнопки в любом месте.