Boa tarde!!

Se eu considerar que os valores estão na coluna A e que os dados serão copiados para outra guia..

Sub teste()
'Não testado!!!!
Dim LR As Long, i As Long
    With Sheets("Plan1")
        LR = .Range("A" & Rows.Count).End(xlUp).Row
        For i = 2 To LR
            .Rows(i).Copy Destination:=Sheets("Plan2").Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(.Range("E" & i).Value)
        Next i
    End With
End Sub

Att

.
Alexandrevba, testei aqui, mas parece que não ficou redondo não k ... mas aguarde o dono do tópico (só estou me metendo para agilizar, e porque vai que um dia eu precise k)!!
.
1) faltou copiar o título das colunas
2) O resultado da primeira linha é uma data (??) na coluna D e o Posto na coluna E
3) A cada clique no botão, a macro não substitui o que já foi copiado na Plan2, mas acrescenta lá no final
.

ficou perfeito

muito obrigado....

.
OPS!!
.
FragosoJP, quem fez a macro foi o Alexandrevba, ou seja ele foi quem resolveu kk ... eu só coloquei o código dele no seu arquivo - e fiz as críticas que achei convenientes - mas se para vc resolveu, ótimo!! ... Muda o "Resolvido" para a postagem dele kk!!
.