EDIT:
Sub ZobrazRadek(radek As Long)
Dim radkuPred As Integer
radkuPred = 10 ' počet volných řádků před požadovaným
If radek - radkuPred > 0 Then
Application.Goto Rows(radek - radkuPred), True
Else
Application.Goto Rows(1), True
End If
Rows(radek).Select ' pouze zvýrazní požadovaný řádek
End Sub
Zobrazí požadovaný řádek posunutý o počet řádků před ním, pokud číslo řádku bude menší než požadovaný posun, bude první řádek vždy na začátku.citovat