IsEmpty

Please Help!
Can I select a group of rows starting with a named cell and then selecting all rows until a row is empty?

I think it goes somthing like this...

 
Worksheets("Sheet1").Range("Input1").Select
r = ActiveCell.Row
lr = ActiveSheet.UsedRange.Rows.Count
Rows(r & ":" & lr).Select

.....until r IsEmpty

Selection.Copy