İlk boş satıra kayıtta problem

[İsmail Küçükşengün]

Mehabalar;

Aşağıdaki kullandığım kodda, kaydedilen veriler, ilk boş satıra değil de, 2. boş satıra kaydediyor.

Sub aktar()
On Error GoTo son
Set s1 = Sheets("liste")
Set s2 = Sheets("giriş")
s2.Range("b5:b500").ClearContents
s2.Range("b5:b500").ClearContents
s2.Range("b5:b500").ClearContents
satir = s1.Range("a1:a500").Find(s2.[A1]).Row
kolon = s1.Range("a1:a500").Find(s2.[A1]).Column

For X = 1 To 50
s2.Cells(X + 2, 2) = s1.Cells(satir, kolon + X - 1)
Next X
Exit Sub
son:
MsgBox "Aranan Kayıt Bulunamadı"
End Sub

Kaydedilmek istenen verilerin ilk boş satıra kaydı nasıl sağlanır?

Şimdiden Teşekkürler...

 

[İsmail Küçükşengün]

Hata nerde olabilir?

 

[İsmail Küçükşengün]

Anlayan bir arkadaşın yardımı gerekli

 

[İsmail Küçükşengün]

Yardım edecek arkadaş yok mudur?..