' First be sure to activate the sheet
Worksheets("Sheet1").Activate
' Then simply activate the Cell:
Range("B3").Activate
' Scroll
Application.Goto Activecell, True
' Or (5Th line will be the first displayed on top):
ActiveWindow.ScrollRow = 5