Olá Bracinho!
Criar uma nova planilha com os dados no layout que você deseja talvez até seja possível utilizando fórmulas matriciais, porém elas serão demasiadamente complexas.
Tenho 2 sugestões para o seu caso:

1ª Sugestão: Ajustando manualmente o BD:
a)Insira uma nova coluna, antes da coluna A, e na na célula A3 aplique a fórmula: =SE(NÚM.CARACT(C3)=3;A2;C3)
b)Copie a fórmula para até a última linha do BD
c)Transforme em valores a coluna A
d)Aplique o autofiltro na linha 2
e)Comece a filtrar os valores indesejados e apague as linhas (Sugestão é filtre por 0 na Coluna A, apague as linhas, então filtre as vazias na coluna I e apagua as linhas)
f) Apague as colunas que não te interessam

2ª Sugestão: Use um código VBA para fazer o novo BD:
Rode o código abaixo a partir da célula onde você deseja que seja montado o novo BD.

Option Explicit

Sub Criar_BD_Abono()

    Dim i As Long
    Dim rLast As Long
    Dim LinhaNome As Long
    Dim NewBDCell As Range
    
    Set NewBDCell = ActiveCell
    Application.Goto Sheets("BD").Range("A1")
    rLast = Sheets("BD").Range("A1", Range("A1").SpecialCells(xlLastCell)).Rows.Count
    Application.Goto NewBDCell

    For i = 1 To rLast
      If Len(Sheets("BD").Range("B" & i)) > 3 Then
        LinhaNome = i
      Else
        If Sheets("BD").Range("B" & i) <> "" Then
            ActiveCell.Value = Sheets("BD").Range("B" & LinhaNome).Value 'Nome do funcionário
            ActiveCell.Offset(0, 1).Range("A1").Value = Sheets("BD").Range("A" & i).Value 'Data do abono
            ActiveCell.Offset(0, 1).Range("A1").NumberFormat = "dd/mm;@" 'Ajuste da data para formato dd/mm
            ActiveCell.Offset(0, 2).Range("A1").Value = Sheets("BD").Range("H" & i).Value 'Motivo do Abono
            ActiveCell.Offset(0, 3).Range("A1").Value = Sheets("BD").Range("A" & LinhaNome).Value 'Código Do funcionário
            ActiveCell.Offset(0, 4).Range("A1").Value = Sheets("BD").Range("G" & LinhaNome).Value 'Cargo
            ActiveCell.Offset(1, 0).Activate
        End If
      End If
    Next i
End Sub

Qualquer dúvida pergunte.

Abs!

Issamu,

Eu estava certo em dizer que, as vezes, não basta apenas conhecermos as fórmulas, mas sim usarmos a criatividade.

Defendo essa tese, pois, com o simples fato de inserir a fórmula =SE(NÚM.CARACT(C3)=3;A2;C3) na coluna A, como sugerido por você, matou toda a charada de forma simples e eficaz!

Meus parabéns e muito obrigado!