Ok, I've got the intitial elements working.

Do Until Selection.Interior.ColorIndex < -4142
ActiveCell.Offset(1, 0).Select

Loop

If Selection.Interior.ColorIndex < -4142 Then

'how do I define the last row selected?
'I tried the following and get a 1004 error.

range("$1: ActiveCell.EntireRow.cells()").Select
' I've also tried: range("$1:entirerow.cells()").select
' and range("$1:entirerow").select
' none of those work, and all throw a 1004 error.

End If

My goal now is to place the last row selected in the do loop into a
range().select (or a better choice) function so I can define the
PrintTitleRows element of PageSetUp

With ActiveSheet.PageSetUp
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With

comnponent.

How would I accomplish this?

Thank you.