Sub select2()
    a1 = Selection.row
    ii = 0
    '---
    For i = 0 To a1 - 2
        If Cells(a1 - i, 1) <> "" And Cells(a1 - i, 1) <> "jump" Then
            r_up = a1 - i + 1
            Exit For
        Else
            If ii >= 5 Then
                r_up = a1 - i + ii
                Exit For
            Else
                If Application.CountA(Rows(a1 - i)) = 0 Then
                    ii = ii + 1
                Else
                    ii = 0
                End If
            End If
        End If
    Next
    ii = 0
    For i = 1 To 10000
        If Cells(i + a1, 1) <> "" And Cells(a1 + i, 1) <> "jump" Then
            r_dn = a1 + i - 1
            Exit For
        Else
            If ii >= 5 Then
                r_dn = a1 + i - ii - 1
                Exit For
            Else
                If Application.CountA(Rows(a1 + i)) = 0 Then
                    ii = ii + 1
                Else
                    ii = 0
                End If
            End If
        End If
    Next
    '---
    Range("b" & r_up & ":z" & r_dn).Select
End Sub