Как сделать так чтоб разграниченные ячейки не считались заполненными

[Zlodeyatel]

Добрый день, с целью облегчения трудовых будней, да и интереса для, решил покопаться в Екселе по глубже. Там код подсмотрел, самоучители онлайн полистал. Нарисовал небольшой макрос для двусторонней печати и ведения журнала напечатанного. Но возникла проблема, если в журнале строчки и столбцы разграничить то макрос их за пустые не считает, а не разграничивать, не удобно для чтения. И если строку в середине журнала очищаешь то он туда информацию не заносит, а все равно пишет дальше.
помогите советом плз, может книжка какая умная есть, интересно мне это но пока совсем чайник
Заранее благодарен.

[doober]

Если встечается окно в две пустые строки,то определяется строка для вставки
Select ы не люблю, код дальше не правил

 Sub ДвусторонняяПечать()
   Sheets("стр1").PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
    MsgBox "Первая страница напечатана. Переворачивайте лист", vbInformation
  Sheets("стр2").PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False  
'============================ 
  Dim XX

        Set iList = Sheets("журнал путевых листов")
        lLastRow = iList.Cells(iList.Rows.Count, 5).End(xlUp).Row
        iRow = lLastRow + 1
        XX = iList.Range(iList.Cells(1, 5), iList.Cells(lLastRow, 5))

        For n = 4 To lLastRow - 1
                If XX(n, 1) = "" And XX(n, 1) = "" Then
                        iRow = n + 1
                        Exit For
                End If
        Next
'===============================
'Дальше ваш код

    Application.Goto Reference:=Worksheets("стр1").Range("O6:T7")
    Selection.Copy
    Sheets("журнал путевых листов").Select

[Zlodeyatel]

Спасибо с границами помогло, но с этим кодом возникла проблема, если удаляешь не последнюю строчку, то макрос начинает заменять следующую после удаленной строчку и удаляет все что было дальше))))

[doober]

Я допустил ошибку
Так должно быть

     For n = 4 To lLastRow - 1
                If XX(n, 1) = "" And XX(n+1, 1) = "" Then
                        iRow = n + 1
                        Exit For
                End If
        Next

Если вы четко определитесь,что между строками должна быть одна и только одна пустая строка,и данные заносятся в одну строку,тогда все будет работать как часы.
Логика определения строки вставки=если две строки пустые,значит можно данные вставлять.
Попробуйте подстраховаться и поставить условие на 3 пустых строки

    For n = 4 To lLastRow - 2
                If XX(n, 1) = "" And XX(n+1, 1) = "" And XX(n+2, 1) = ""  Then
                        iRow = n + 1
                        Exit For
                End If
        Next

[Zlodeyatel]

Сообщение от doober

Логика определения строки вставки=если две строки пустые,значит можно данные вставлять.

Можно и так, но я имел ввиду, что данные заносятся в первую попавшуюся пустую строку, не зависимо от того что дальше.
при следующей записи происходит снова проверка и запись опять же в пустую строку, она может быть как следующей так и через несколько строк, (если я что то удалил из массива)
что то такое:
Dim XX

Set iList = Sheets("журнал путевых листов")
lLastRow = iList.Cells(iList.Rows.Count, 5).End(xlUp).Row
iRow = lLastRow + 1
XX = iList.Range(iList.Cells(1, 5), iList.Cells(lLastRow, 5))

For n = 4 To lLastRow - 1
If XX(n, 1) = "" Then
iRow = n
Exit For
End If
Next

Но вот почему он стирает следующую строчку?(((