Sub Macro1()
Dim rowNumber As Single

Sheets("Sheet1").Select
'Find blank row number below data in column 1
rowNumber = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

'Scroll to the required row number
ActiveWindow.ScrollRow = rowNumber

End Sub

Regards,

OssieMac

Hi Rob,

Try this:-



"Rob L" wrote:

I have a spreadsheet that has multiple rows, with a heading row. How do I
set up a macro to scroll the screen so that the last unfilled row is the
only row shown below the headings (I have the headings frozen).

Thanks,

RobL