Private Sub ScrollBar1_Change()
    sb_change "ScrollBar1", ActiveSheet.Range("p2"), ActiveSheet.Range("a2:b10")
End Sub

Private Sub ScrollBar2_Change()
    sb_change "ScrollBar2", ActiveSheet.Range("p2"), ActiveSheet.Range("f2:g10")
End Sub


Private Sub sb_change(ScrollBarName As String, BaseRange As Range, WindowRange As Range)
    SB = OLEObjects(ScrollBarName).Object.Value
    nd1 = BaseRange.End(xlDown).Row
    
    If nd1 =  65536  Or nd1 <=  9  Then
        OLEObjects(ScrollBarName).Object.Max =  1 
    Else
        OLEObjects(ScrollBarName).Object.Max = nd1 -  9 
    End If

    For i =  1  To nd1 -  1 
        If i = SB Then
            For k% =  1  To  9 
                WindowRange.Cells(k,  1 ) = i + k -  1 
                WindowRange.Cells(k,  2 ) = BaseRange.Cells(i -  1  + k,  1 )
            Next
        End If
    Next
    ActiveCell.Activate
End Sub

Private Sub ScrollBar1_GotFocus()
    ActiveCell.Activate
End Sub

Private Sub ScrollBar2_GotFocus()
    ActiveCell.Activate
End Sub