Aleyküm selam abey.
Resmdeki işaretlediğim yerler gibi olacak ilgili kodlar.

Dim xx As Integer, say As Integer

For xx = 13 To Cells(Rows.Count, "B").End(3).Row

    If Cells(xx, "C").Value = "" Then

        say = xx - 1: Exit For

    End If

Next



Range(Cells(12, sut), Cells(say, sut)).Interior.Color = vbRed

Range(Cells(12, sut), Cells(say, sut)).Font.Color = vbYellow

Range(Cells(12, sut), Cells(say, sut)).Font.Bold = True