Kullandiğim koda ilave yapabilirmisiniz

[BlueRiver]

Merhaba
Aşağıdaki kodu kullanarak,
excelde Sayfa2 de üçüncü satırdan başlayarak H sütununda değer olan satırlara karşılık gelen B sütunundaki isimleri M7 hücresinden sırayla aşağı doğru yazdırıyorum,

yardım istediğim konu ise makronun M7 hücresinden M18 hücresine kadar max 12 adet veri girişi yapmasını, bulunan veri 12 adetten fazla ise 12 adet (M18 hücresine kadar) veri girişi yaptıktan sonra
girilebilecek maksimum isim sayısını aştınız şeklinde bir mesaj vererek M18 den aşağıya başka veri girmemesini istiyorum. (M19 da başka bilgiler var durmazsa üzerine yazıyor)

Yardımlarınız için şimdiden teşekkürler

Sub portfoy_al()
    Sheets("Sayfa2").Range("M7:M17").ClearContents
    Dim s1 As Worksheet: Dim i As Integer
    Set s1 = Sheets("Sayfa2")
    son = Cells(65336, "H").End(3).Row
    sat = 7
    For i = 3 To son
    If Range("H" & i) > 0 Then
    Range("M" & sat) = Range("B" & i)
    sat = sat + 1
    End If
  Next i
End Sub