Hello

Nem tökéletes, de talán megteszi.

Sub ScrollUp()
Range("A1").Select
Sorok = Selection.CurrentRegion.Rows.Count
ActiveWindow.SmallScroll Up:=65536
ActiveWindow.SmallScroll Down:=Sorok - 11
Range("A" & Sorok).Select
End Sub

rand