A sütununda sondan başa doğru yapılan döngü işleminde ilgili satırın metin tipinde olduğu tespit edilirse bu satırı silen VBA kodudur.
Option Explicit
Sub EgerASutunundaIlgiliSatirMetinTipindeyseSatiriSil()
Dim i As Long
For i = [A1048576].End(xlUp).Row To 1 Step -1
If Application.IsText(Cells(i, 1)) Then
Rows(i).Delete
End If
Next
End Sub