Delete rows with no values in column E

[saraereinosa]

I have data like so:

00:01:18.941 <colgroup><col width="136"></colgroup><tbody> </tbody>	Session begin <colgroup><col width="133"></colgroup><tbody> </tbody>		State start <colgroup><col width="79"></colgroup><tbody> </tbody>
00:01:18.941 <colgroup><col width="136"></colgroup><tbody> </tbody>	63 Eyes Up <colgroup><col width="133"></colgroup><tbody> </tbody>	B= Slight <colgroup><col width="153"></colgroup><tbody> </tbody>	State start <colgroup><col width="79"></colgroup><tbody> </tbody>
00:01:20.810 <colgroup><col width="136"></colgroup><tbody> </tbody>	61 Eyes Left <colgroup><col width="133"></colgroup><tbody> </tbody>	E= Maximum <colgroup><col width="153"></colgroup><tbody> </tbody>	State start <colgroup><col width="79"></colgroup><tbody> </tbody>	63B <colgroup><col width="68"></colgroup><tbody> </tbody>
00:01:21.177 <colgroup><col width="136"></colgroup><tbody> </tbody>	61 Eyes Left <colgroup><col width="133"></colgroup><tbody> </tbody>	E= Maximum <colgroup><col width="153"></colgroup><tbody> </tbody>	State start <colgroup><col width="79"></colgroup><tbody> </tbody>
00:01:21.177 <colgroup><col width="136"></colgroup><tbody> </tbody>	63 Eyes Up <colgroup><col width="133"></colgroup><tbody> </tbody>	E= Maximum <colgroup><col width="153"></colgroup><tbody> </tbody>	State start <colgroup><col width="79"></colgroup><tbody> </tbody>
00:01:25.114 <colgroup><col width="136"></colgroup><tbody> </tbody>	43 Eye Closure <colgroup><col width="133"></colgroup><tbody> </tbody>	E= Maximum <colgroup><col width="153"></colgroup><tbody> </tbody>	State start <colgroup><col width="79"></colgroup><tbody> </tbody>	63B <colgroup><col width="68"></colgroup><tbody> </tbody>
00:01:25.915 <colgroup><col width="136"></colgroup><tbody> </tbody>	04 Brow Lowerer <colgroup><col width="133"></colgroup><tbody> </tbody>	E= Maximum <colgroup><col width="153"></colgroup><tbody> </tbody>	State start <colgroup><col width="79"></colgroup><tbody> </tbody>
00:01:25.915 <colgroup><col width="136"></colgroup><tbody> </tbody>	09 Nose Wrinkle <colgroup><col width="133"></colgroup><tbody> </tbody>	E= Maximum <colgroup><col width="153"></colgroup><tbody> </tbody>	State start <colgroup><col width="79"></colgroup><tbody> </tbody>
00:01:26.215 <colgroup><col width="136"></colgroup><tbody> </tbody>	04 Brow Lowerer <colgroup><col width="133"></colgroup><tbody> </tbody>	E= Maximum <colgroup><col width="153"></colgroup><tbody> </tbody>	State start <colgroup><col width="79"></colgroup><tbody> </tbody>	63B <colgroup><col width="68"></colgroup><tbody> </tbody>
00:01:26.215 <colgroup><col width="136"></colgroup><tbody> </tbody>	09 Nose Wrinkle <colgroup><col width="133"></colgroup><tbody> </tbody>	E= Maximum <colgroup><col width="153"></colgroup><tbody> </tbody>	State start <colgroup><col width="79"></colgroup><tbody> </tbody>
00:01:26.349 <colgroup><col width="136"></colgroup><tbody> </tbody>	43 Eye Closure <colgroup><col width="133"></colgroup><tbody> </tbody>	E= Maximum <colgroup><col width="153"></colgroup><tbody> </tbody>	State start <colgroup><col width="79"></colgroup><tbody> </tbody>
00:01:26.549 <colgroup><col width="136"></colgroup><tbody> </tbody>	62 Eyes Right <colgroup><col width="133"></colgroup><tbody> </tbody>	E= Maximum <colgroup><col width="153"></colgroup><tbody> </tbody>	State start <colgroup><col width="79"></colgroup><tbody> </tbody>	63B <colgroup><col width="68"></colgroup><tbody> </tbody>

<tbody>
</tbody>

and I want to delete all rows that don't have data in the last column (ALWAYS COLUMN E IN EXCEL).

Does anyone know how to do this?

Thank you.

 

[JLGWhiz]

Code:
Sub delEblank()
Dim sh As Worksheet, lr As Long, rng As Range
Set sh = Sheets(1) 'Edit sheet name
lr = sh.Cells(Rows.Count, 1).End(xlUp).Row
Set rng = sh.Range("E2:E" & lr)
For i = lr To 2 Step -1
If sh.Cells(i, 4) = "" Then
sh.Cells(i, 4).EntireRow.Delete
End If
Next
End Sub
Code:

 

[Michael M]

Shorter

Sub delEblank()
Dim i As Long
    For i = Sheets(1).Cells(Rows.Count, 5).End(xlUp).Row To 2 Step -1
        If Cells(i, 5) = "" Then Rows(i).Delete
    Next
End Sub

 

[mirabeau]

Sub del_E()
Range("E:E").SpecialCells(4).EntireRow.Delete
End Sub

 

[Michael M]

yes mirabeau, I should have used that as well........too early in the morning for me !!!