Kaydet Kodunda Değişiklik

[1Al2Ver]

Merhaba,

Aşağıdaki kod'da kırmızı olan satırın ;

"İLK_KAYIT" sayfası "C4" hücresini, "VERİLER" sayfası "B2" den itibaren, her kayıt sonrası "B" sütunundaki ilk boş satıra yazmasını rica ediyorum,

Teşekkür ederim.

Sub İLK_KAYIT()

Set ik = Sheets("İLK_KAYIT")
Set ku = Sheets("KAYITLI_ÜYELER")
Set v = Sheets("VERİLER")

'ku.Unprotect Password:="....."
'v.Unprotect Password:="....."

ik.[C2:C16].Copy

ku.Cells(ku.Cells(Rows.Count, "B").End(xlUp).Row + 1, "A") _
.PasteSpecial Paste:=xlPasteValues, Transpose:=True

v.Cells(v.Cells(Rows.Count, "B").End(xlUp).Row + 1, "A") _
.PasteSpecial Paste:=xlPasteValues, Transpose:=True

ik.Range("C3:C5,C7:C16").ClearContents

'ku.Protect Password:="....."
'v.Protect Password:="......"

End Sub