Rica ederiz.Alttaki kod Kayıt sütununun hangi sütunda olduğnu arar.Ben 2.ci satırda olduğunu farzettiğim için öyle yaptım.
.rows(2) bunu silip cells yalarsanız tüm satır ve sütunlarda arar Kayıt kelimesini.

Set bulSutunNo = wsa.Rows(2).Find(ws.Range("i2").Value, , , 1)

---

Alttaki içinde aynı durum bıda son satır buluyordu..Range("A:A") bunu silip .cells yazarsanız tüm her yerde arar.

Set bulSatirNo = wsa.Range("A:A").Find(ws.Range("A2").Value, , , 1)