Soru Sayfadan Sayfaya Onay Alarak Aktarma

[sirkülasyon]

 Dim personel, puantaj As Worksheet
 Dim PSatir, PtSatir As Long
    Set personel = ThisWorkbook.Worksheets("Personel")
    Set puantaj = ThisWorkbook.Worksheets("Puantaj")
    PSatir = 3
    PtSatir = 10
    Do While personel.Cells(PSatir, "C").Value <> ""
        puantaj.Range("C" & PtSatir & ":F" & PtSatir).Value = personel.Range("C" & PSatir & ":F" & PSatir).Value
        PSatir = PSatir + 1
        PtSatir = PtSatir + 1
    Loop

Yukarıdaki Kod ile Personel sayfasından Puantaj sayfasına bir kerede tüm satırı aktarıyorum. Ancak Kodu aşağıdaki açıklamaya göre revize edemedim.

Personel Sayfası satır başlangıç = 3
Puantaj Sayfası Satır Başlangıç = 10
Puantaj sayfasında Aktar butonuna basıldığı zaman
Personel Sayfasında C:F aralığında ki İlk satırı Puantaj Sayfasında C:F sütununda ilk satıra aktaracak
İkinci kez Aktar denildiği zaman Puantaj sayfasında G sütununa bakacak Eğer veri girilmemiş ise "Önce Personele ait mesai saatini giriniz!.." uyarısı verecek aktarma yapmayacak
Puantaj sayfası G sütununda hücreye veri girilmiş ise
C:F aralığında ki İkinci satırı Puantaj Sayfasında C:F sütununda ikinci satıra aktaracak
Böylesi bir işlemi gerçekleştirecek koda ihtiyacım var. Yardımınız için teşekkür ederim