Run-time error: '1004' application-defined or object-defined

[Michael.Angarsk]

Здравствуйте, есть код:

ElseIf Selection.Offset(0, -1).Value = first2 Then
Range(Selection.Address, Selection.Offset(x, 2).Address).Copy Destination:=Workbooks(destBook).Wo rksheets(Day(Selection.Value)).Rang e("B7").End(xlDown).Offset(1, 0)
With Workbooks(destBook).Worksheets(Day( Selection.Value))
.Range(.Range("D7").End(xlDown).Off set(0, -1).Address, .Range("D7").End(xlDown).End(xlDown ).Address).Cut Destination:= _
.Range("E7").End(xlDown).Offset(1, -1)
End With

при выполнении макроса появляется ошибка Run-time error: '1004' application-defined or object-defined, отладчик останавливается на строке:

Range(Selection.Address, Selection.Offset(x, 2).Address).Copy Destination:=Workbooks(destBook).Wo rksheets(Day(Selection.Value)).Rang e("B7").End(xlDown).Offset(1, 0)

Прошу помощи в решении проблемы

[Hugo121]

Ниже B7 вероятно ничего нет?

[Michael.Angarsk]

Да, пустые ячейки.