Уважаемые форумчане , подскажите пожалуйста добавить ещё одно условие к условию (If) в этом макросе , (And столбец D пустой) , проверку на пустоту первой ячейки в столбце D я добавил ,а как вместо неё добавить проверку на пустоту столбца , хотя -бы до сотой строки?


Sub Shag1_16()
lr = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count
If lr = Cells(Rows.Count, "B").End(xlUp).Row + 1 And Cells(1, 4) = 0 Then
Cells(Rows.Count, "B").End(xlUp).Copy Destination:=Range("A1")
End If
End Sub

Саша2410,

Всё кто хотел помочь спасибо , этот вопрос уже сам решил!