Set bottom of variable range

[mdmackillop]

[VBA]
Sub EndRange()
Dim LastRows As Long
Dim RangeTwo As Range

LastRow = Range("E" & Rows.Count).End(xlUp).Row
Set RangeTwo = Range("A2:E" & LastRow)
'or
Set RangeTwo = Range(Cells(2, "E"), Cells(Rows.Count, "E").End(xlUp))
End Sub

[/VBA]

Using a dynamic range name in the Define Name box
=OFFSET(Sheet1!$E$1,1,0,COUNTA(Sheet1!$E:$E)-1,1)