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.