A planilha original possui mais de 3.000 linhas na coluna A da aba "como está".

Se você quiser experimentar uma solução via macro, utilize o código abaixo.
Considerei que na planilha original também há uma célula vazia entre cada grupo de dados, como no exemplo que você disponibilizou.
O resultado será colocado nas colunas E:G da própria planilha em que estão os dados.

Sub OrganizaDados()
 Dim n As Long
  Application.ScreenUpdating = False
   [E:G] = ""
    For n = 2 To Cells(Rows.Count, 1).End(3).Row - 1 Step 4
     Cells(n, 1).Resize(3).Copy
     Cells(Rows.Count, 5).End(3)(2).PasteSpecial Paste:=xlAll, Transpose:=True
    Next n
  Application.CutCopyMode = 0
  Application.ScreenUpdating = True
End Sub

Obrigda! Resolveu meu problema! Abraços