I have tried written the following code, however it's incorrect and I
can't seem to work out how to correct it. Could anybody offer any help
please?

Sub test()

Range("A1").Select
Dim Start As Range
Set Start = ActiveCell


Range("a5").Select
Dim Final As Range
Set Final = ActiveCell

Range (Start:Final).Select

End Sub

Many Thanks
Mark