Delete the row if no text in column 1

[sarfarazbutt]

I need to delete the all rows in sheet if no text in column 1

 

[pboltonchina]

I assume you mean column A not column 1. Try this

Sub Delete()
Application.ScreenUpdating = False
      Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = LR To 1 Step -1
    If Range("A" & i).Value = "" Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub