剪切具有绿色单元格的行，并将其越过最后一行

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