Soru Son Satırdan Sonra Temizle

[bulentkars]

Arkadaşlar Merhaba

Bir Tablom var, A2:L1600 arasında A kolonuna göre en son dolu satırdan sonraki satırları temizlemek istiyorum.
temizleme işlemi bitikten sonra
I201 satırına Genel Toplam yazdırmak
K201 satırınada =Alttoplam(9;K2:K200) formülü ile toplam almak istiyorum. Toplam yazısı ve toplam alınan hücreninde kalın olması mümkün olur mu acaba yardımcı olabilirseniz sevinirim. Şimdiden Teşekkürler.

 

[YUSUF44]

Aşağıdaki makroyu deneyiniz:

Sub muhtelifisler()
son = Cells(Rows.Count, "A").End(3).Row
Range("A" & son + 2 & ":L1600").Clear
[I201] = "Genel Toplam"
[K201].Formula = "=SUBTOTAL(9,R[-200]C:R[-1]C)"
[I201:K201].Font.Bold = True
End Sub