Sayfa 1 deki verileri Sayfa 2 de depolamak

[hubay64]

Selamlar, Sayfa1 de üç adet sutundaki listeleyip sildiğim verilerin Sayfa2 de alt alta depolanmasını istiyorum buna ilişkin forumda araştırdım benzer çözümler var ama birebir aynısını bulamadım bulduklarımdan oluşturdğum ve aşağıdaki bir kod var ama oda sadece Sayfa 1 deki bir satırdaki verinin Sayga 2 ye kaydetmesi için çalışıyor, ben Sayfa 1 deki tüm satırların saya 2 de alt alta depolanmasını istiyorum. Yardımcı olacak arkadaşlara şimdiden teşekkür ler .
Private Sub CommandButton2_Click()
If MsgBox("Yazdırmak istiyor musunuz .....?", vbYesNo) = vbYes Then
Sheets("normalliste").PrintOut
End If
MsgBox "yazdırma iptal edildi"
If MsgBox("arşiv oluştumak istiyor musunuz .....?", vbYesNo) = vbYes Then
Dim a
yazdim = 0
For i = 7 To 58
If yazdim = 1 Then Exit For
If Sheets("Sayfa2").Cells(i, "b").Value = Empty Then
yazdim = 1

Sheets("Sayfa2").Cells(i, "C").Value = Sheets("normalliste").Cells(9, "c").Value
Sheets("Sayfa2").Cells(i, "B").Value = Sheets("normalliste").Cells(9, "f").Value
Sheets("Sayfa2").Cells(i, "d").Value = Sheets("normalliste").Cells(9, "y").Value

End If
Next i
MsgBox "arşiv oluşturuldu"


Else
MsgBox "arşiv oluşturma yapılmadı "
End If
Exit Sub
End Sub

 

[Ömer]

Merhaba,

Sorunuzu küçük bir örnek dosya ile desteleyerek açıklarmısınız.