satırı silme

[idealimsin]

merhaba şu konuda bana yardımcı olabilirmisiniz..çalışma sayfamda "C" sütununda boş olan yani hiç bir değer bulunmayan hücreyi bulunduğu satırı komple otomatik silmek istiyormum.bir sayfamda bir seferde silinecek satır 50 satırı geçiyor bunu hızlı bir şekilde yapabilmem için nasıl fomül uygulamalıyım

 

[veyselemre]

Sub bosSatirlariSil()
    Range([c1], Cells(Rows.Count, "c").End(3)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub