Вырежьте ряд с зелеными клетками и пройдите его под последним рядом.

Question

У меня есть диапазон A5: E40.строка является динамической и может стать длиннее 40. Когда я добавляю дату в диапазон (B5: Lastrow), диапазон A: E, в который была добавлена ​​дата, становится зеленым.

Я хочу вырезатьзеленая строка, проходящая ниже последней строки в таблице и не оставляющая пустых мест путем обрезки строки.

У меня есть следующий код, но он работает неправильно.это мимо ряда, но гайка в последнем ряду

Dim b As Integer

For b = 5 To LastRow
    If ThisWorkbook.Sheets("Sheet1").Range("A" & b).DisplayFormat.Interior.ColorIndex = 4 Then
        ThisWorkbook.Sheets("Sheet1").rows(b).Cut _
            Destination:=ThisWorkbook.Sheets("Sheet1").Range("B" & LastRow).End(xlUp).Offset(1,0)
    End If
Next b