Boa tarde,

Sou leigo em tabela dinâmica mas ela não resolveria teu problema?

Att

Boa tarde e bem vindo, @diasbh 

Poste um arquivo Excel. A imagem que vc mostrou até serve pra ilustrar o que vc pretende, mas se tivesse um arquivo Excel, outros usuários poderiam se interessar mais em tentar ajudar pois não teriam que digitar tudo do zero pra testar as fórmulas, ok?

@edsonbr  

Obrigado, postei o arquivo em Excel.

Bom dia, também sou.

Dei uma olhada em exemplos de tabela dinâmica e só encontrei utilização para somatórios, talvez possa servir, mas ainda não descobri como.

Olá @diasbh ,

Veja se este código resolve seu problema:

Sub transpor_coluna()

Dim ultimalinha As Integer
Dim primeiracoluna As Integer
Dim ultimacoluna As Integer
Dim linpos As Integer
Dim colpos As Integer
Dim aux As Integer

ultimalinha = Cells.Find(What:="POSIÇÃO", LookAt:=xlWhole).End(xlDown).Row
primeiracoluna = Cells.Find(What:="POSIÇÃO", LookAt:=xlWhole).End(xlToLeft).Column
ultimacoluna = Cells.Find(What:="POSIÇÃO", LookAt:=xlWhole).End(xlToRight).Column
linpos = Cells.Find(What:="POSIÇÃO", LookAt:=xlWhole).Row
colpos = Cells.Find(What:="POSIÇÃO", LookAt:=xlWhole).Column
aux = linpos + 1

For linha = linpos + 1 To ultimalinha
    If Cells(linha + 1, colpos) <> Cells(linha, colpos) Then
        Range(Cells(aux, primeiracoluna), Cells(linha, ultimacoluna)).Copy
        Cells(aux, ultimacoluna).Offset(0, 2).PasteSpecial Transpose:=True
        aux = linha + 1
    End If
Next linha

End Sub