Merhaba;

Dim Son As Integer



satirsayisi = WorksheetFunction.CountA(Sheets("Sayfa1").Columns("A"))



satirsayisi = satirsayisi + 1



Son = 5  // Yazdırılacak olan satir sayisi yazılmalı



For i = satirsayisi To Son



Sheets("Sayfa1").Range("A" & i) = "Yazılacak Değer"



Next

excel'de son satıra ben bu şekilde yazdırıyorum.

Kolay gelsin.