Find the last row based on column 'E' and delete everything below that...?

So far,

All I have is...

Sub rowclear()


Dim lRow As Long
lRow = .Cells(.Rows.Count, "E").End(xlUp).Row

       
End Sub

Can someone please help me alter the code so that I can delete everything below the Last Row in Column E?