Klasördeki dosyaların en son boş satırlarını merge etme

[rompla]

Arkadaşlar iyi günler;

Makro.xls isimli bir doya içine yazdığım bir kod vasıtasıyla;
bir klasörde bulunan dosyaları açıp en son satırlarına "Bitti" yazıp merge etmem gerekiyor. Dosyaları açıp gerekli işlemleri yapıyorum, o kısımda bir sorun yok. Ancak Makro kodumun son kısmında hata veriyor.
Run-time error 1004 application-defined or object-defined error diyor. Acaba makro başka dosyada, yapacağım işlem farklı bir dosyada olduğundan mı böyle yapıyor? Hata veren kısım şöyle

sutunno = ActiveCell.Row
ActiveCell = "Bitti"
Range("A" & sutunno, "D" & sutunno).Select
Selection.Merge
nerede hata yapıyorum acaba?? bu kodu tek başına kendi dosyası üzerinde çalıştırdığında hata vermiyor. forumda da arattım ancak işime yarar bir şey bulamadım.

yardımlarınız için teşekkürler.

 

[Orion1]

ilgili satırı aşağıdaki gibi deneyiniz.

Range("A" & sutunno & ":D" & sutunno).Select

 

[rompla]

teşekkürler, denedim ancak olmuyor. sanırım sorun bu dosyayı başka bir dosya içinden(Makro.xls) açtığından kaynaklanıyor.

 

[Orion1]

teşekkürler, denedim ancak olmuyor. sanırım sorun bu dosyayı başka bir dosya içinden(Makro.xls) açtığından kaynaklanıyor.

örnek dosyanız yollarsanız bir bakyım.

 

[hatice990]

böyle bir sorunla sanki ben de karşılaşmıştım... aslında çözebilirseniz mevzuyu benim sorunuma da çözüm olur. o zaman bulamamıştım.