VBAで特定の行に空白があった場合、セルを黄色にするコード

D行より右のセルを対象に、10行目より下のセルで空白があった場合、
セルを黄色にするＶＢＡのマクロです。

Sub FillEmptyCellsInYellow()
    Dim ws As Worksheet
    Dim cell As Range
    Dim lastColumn As Long
    Dim row As Long
    Dim lastRow As Long

    ' シートを設定
    Set ws = ThisWorkbook.Sheets("シート名")

    ' 10行目の最後の列を取得
    lastColumn = ws.Cells(10, ws.Columns.Count).End(xlToLeft).Column

    ' B列に値がある最後の行を取得
    lastRow = ws.Cells(ws.Rows.Count, 2).End(xlUp).Row

    ' B列に値がある行に対して、D列から最後の列までループ
    For row = 11 To lastRow
        If ws.Cells(row, 2).Value <> "" Then
            For i = 4 To lastColumn
                Set cell = ws.Cells(row, i)
                ' セルが空白の場合、黄色で塗りつぶし
                If IsEmpty(cell.Value) Or cell.Value = "" Then
                    cell.Interior.Color = vbYellow
                End If
            Next i
        End If
    Next row
End Sub