Not: sayfa adları yine sizin çalışmanızdaki sayfa adlarına göre düzenlenecek
Private Sub CommandButton1_Click()
Dim SonStr As Long
Dim KaynakSyf As Worksheet
Dim HedefSyf As Worksheet
Set KaynakSyf = Worksheets("sayfa2")
Set HedefSyf = Worksheets("Sayfa1")
SonStr = KaynakSyf.Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
HedefSyf.Cells.ClearContents
For xStr = 4 To SonStr
With HedefSyf
.[a1] = "Satır Etiketleri"
TmpSonStr = .Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row + 1
.Range("A" & TmpSonStr & ":A" & TmpSonStr + KaynakSyf.Range("B" & xStr) - 1) = KaynakSyf.Range("A" & xStr)
End With
Next xStr
MsgBox "Bitti"
End Sub