Scrolling To Next Blank Row

[code/]Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'This macro scrolls the Report to TopLeft when you click
'anywhere in the Report columns

If Target.Column > 16 And Target.Column < 22 Then
With ActiveWindow
.ScrollRow = 1
.ScrollColumn = 15
End With
End If

If Target.Column >= 1 And Target.Column < 15 Then
With ActiveWindow
.ScrollRow = 1
.ScrollColumn = 1
End With

End If
End Sub[code/]

...but I cant figure out how to scroll it down the list to the NextBlankRow-20 such that the previous 20 lines of data are shown to the top of the screen.