listviewden veri çağırıp sayfalar arası taşıma.

[grida]

Arkadaşlar günaydın.Benimde bir problemim var ve umarım doğru yere yazıyorumdur.
Aşağıdaki kodla Kaydet butonu tıklandığında sayfa1'e , checkbox1 tıklı ise aynı zamanda sayfa2'ye verileri yazdırıyorum.
Daha sonra userform2 üzerinde bulunan listview1 ile verileri userform1 üzerine çekiyorum.Yapmak istediğim şey bir commandbutton koyup,tıklandığında listview den çağrılan veriyi sayfa3'e taşımak.Ve tabi sayfa1 den o satırı silmek.Bu konuda yardımlarınızı rica eder hayırlı günler dilerim.

Private Sub Kaydet_Click()
If TextBox2.Text <> "" Then
If TextBox3.Text <> "" Then
Son_Dolu_Satir = Sheets("sayfa1").Range("A65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Sheets("sayfa1").Range("A" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("sayfa1").Range("A:A")) + 1
Sheets("sayfa1").Range("B" & Bos_Satir).Value = TextBox1.Text
Sheets("sayfa1").Range("C" & Bos_Satir).Value = TextBox2.Text
Sheets("sayfa1").Range("D" & Bos_Satir).Value = TextBox3.Text


If CheckBox1.Value = True Then
Son_Dolu_Satir = Sheets("sayfa2").Range("A65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Sheets("sayfa2").Range("A" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("sayfa2").Range("A:A")) + 1
Sheets("sayfa2").Range("B" & Bos_Satir).Value = TextBox1.Text
Sheets("sayfa2").Range("C" & Bos_Satir).Value = TextBox2.Text
Sheets("sayfa2").Range("D" & Bos_Satir).Value = TextBox3.Text

Else
MsgBox "Soyadı Girmeniz gerekiyor"
End If
Else
MsgBox "İsim girmeniz gerekiyor"
End If
UserForm_Initialize
End Sub