sorularınızı sorarken biraz daha açıklayıcı olabilirseniz hem çözümü bulması kolaylaşır hem de daha hızlı çözüm üretilebilir
dosyanız xlsx türünde oysa bildiğim kadarıyla excelin kendi içinde bir bu işi yapacak bir fonksiyon olmadığı için Vba kodlarıyla çözülmesi gerekiyor bunun içinde dosyanızın uzantısı xlsm yada xlsb uzantılı olmalı. aşağıdaki kodu sayfaya ekleyeceğiniz bir butona yazmalısınız

Private Sub CommandButton1_Click()

Dim SonStr As Long

SonStr = Worksheets("sayfa2").Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row

TmpxStr = 2

Worksheets("sheet1").Cells.ClearContents

For xStr = 4 To SonStr

    

    With Worksheets("sheet1")

        .Range("A" & TmpxStr & ":A" & TmpxStr + Worksheets("sayfa2").Range("B" & xStr) - 1) = Worksheets("sayfa2").Range("A" & xStr)

        TmpxStr = TmpxStr + Worksheets("sayfa2").Range("B" & xStr)

        

    End With

Next xStr

MsgBox "Bitti"

End Sub