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