Dim OldTarget As Range 'предыдущее значение выделенной области или ячейки

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
' макрос для удержания активной ячейки в пределах некоторого расстояния до краёв
Dim FixR
Dim TopR, BotR, TarR

FixR =  4  'количество строк до краёв
MaxR =  65536   ' последняя строка (кроме Excel 2007)

' если сдвига по строке не было, то макрос не срабатывает
If Not OldTarget Is Nothing Then
If OldTarget.Row = Target.Row Then Exit Sub
End If

' макрос срабатывает, если выделена только одна необъединённая ячейка, иначе тут нужен дополнительный обработчик
If Target.Count >  1  Then GoTo LFixEnd

TarR = Target.Row
TopR = ActiveWindow.ScrollRow
BotR = ActiveWindow.ScrollRow + ActiveWindow.VisibleRange.Rows.Count -  1 

' при небольшом размере окна или больших высотах у строк кол-во строк до краёв пополамим
If ActiveWindow.VisibleRange.Rows.Count < FixR *  2  Then
FixR = ActiveWindow.VisibleRange.Rows.Count \  2  -  1 
TarR = Target.Row
End If

' далее сама подгонка
If TarR - TopR < FixR Then
    If TopR <= FixR Then Exit Sub ' для самых первых строк
    ActiveWindow.ScrollRow = TarR - FixR
    If Target.Row > ActiveWindow.ScrollRow + ActiveWindow.VisibleRange.Rows.Count -  1  Then
    ActiveWindow.ScrollRow = TopR  ' для случая переходов высокая-низкая ячейка
    End If
ElseIf BotR - FixR < TarR Then
    If BotR = MaxR Then Exit Sub ' для самых последних строк
    ActiveWindow.ScrollRow = TopR + FixR - BotR + TarR
End If

LFixEnd:
Set OldTarget = Target
End

TarR = Target.Row ' номер строки активной ячейки
TopR = ActiveWindow.ScrollRow ' номер верхней строки окна
BotR = ActiveWindow.ScrollRow + ActiveWindow.VisibleRange.Rows.Count -  1  ' номер нижней строки окна
TarH = Target.Height ' размер активной ячейки  в пойнтах
TarT = (Range(Cells(ActiveWindow.ScrollRow,  1 ), Target).Height - Target.Height) _
* Sgn(Target.Row - ActiveWindow.ScrollRow) ' расстояние в пойнтах от активной ячейки до верха окна
WinH = ActiveWindow.Height - MinH ' текущий размер окна
RwsH = ActiveWindow.VisibleRange.Height - Cells(ActiveWindow.ScrollRow + _
ActiveWindow.VisibleRange.Rows.Count -  1 ,  1 ).Height ' расстояние от нижней видимой строки до верха окна
TarB = WinH - TarT - Target.Height ' расстояние в пойнтах от активной ячейки до низа окна

'MsgBox "WinH=" & WinH & Chr(10) & "RwsH=" & RwsH & Chr(10) & _
"TarH=" & TarH & Chr( 10 ) & "TarT=" & TarT & Chr( 10 ) & "TarB=" & TarB & Chr( 10 )

If TarH + FixH *  2  > RwsH Then 'если размер ячейка+края меньше размеров окна
If RwsH > TarH Then FixH = (RwsH - TarH) \  2  Else Exit Sub
End If

' подгонка
If TarT <= FixH Then
    i =  0 
    Do
    If TopR - i >  1  Then i = i +  1  Else Exit Do
    TarT = TarT + Rows(TopR - i).Height
    Loop While TarT <= FixH
    If TopR - i >  0  Then ActiveWindow.ScrollRow = TopR - i
ElseIf TarB < FixH Then
    i =  0 
    Do
    TarB = TarB + Rows(TopR + i).Height
    i = i +  1 
    Loop While TarB < FixH
    ActiveWindow.ScrollRow = TopR + i
End If

End Sub