If WorksheetFunction.CountA(Worksheets("sayfaAdı").Cells) = 0 then
msgbox "sayfada veri yok"
exit sub
end if
kodunu fonksiyonun en başına eklemeniz uygun olur
yukardaki fonksiyon silme fonksiyonuysa fonksiyonun en başına yazabilirsiniz