A sütununda 45500 satır var
yalnız kodda var olan "SonStr = Cells(Rows.Count, 1).End(xlUp).Row" satırı 45500 satırın hepsini alması lazım
Cells(Rows.Count, 1).End(xlUp).Row kodu son satırı bulmaya yarar
Sayın,Berduş Bey çok teşekkür ederim çalıştı çok sağolun.