Do Loop空行が20連続でSTOP

    loopendcount = 0
    Do While loopendcount < 20
        If Sheets(motoSheet).Cells(L + 1, 7).Value = "" Then
            loopendcount = loopendcount + 1
        Else
            loopendcount = 0
        End If
        '処理をかく
        L = L + 1
    Loop