Obrigado User91504, por me encorajar a experimentar a macrose da MS.
A solução de trabalho tem um código muito simples:
Sub Paste_transpose()
'
' Paste_transpose Macro
'
'
ActiveCell.Offset.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
End Sub
E existe a possibilidade de adicionar uma combinação de teclas para esta macro - não é necessário adicionar botões em nenhum lugar.