How to change the row height if cell is empty???

[PIsabel]

I tried to find a code but I couldn't.
I need a macro that identifies the last occupied cell in column C and changes the height of the entire row if cell B is empty.
The sheet can have up to 15000 lines but this rarely happens.
Can someone help me?

 

[Fluff]

How about

Sub Pisabel()
   With Range("B:B").SpecialCells(xlBlanks)
      .RowHeight = 15
   End With
End Sub

 

[PIsabel]

apparently so simple but it worked spectacularly well.
What if I want to change the color of the columns A:E with the mm code?
I got the code to change the cell but the line was "better"

Sub PIsabel()

   With Range("B:B").SpecialCells(xlBlanks)
    .RowHeight = 15
    .Interior.Color = 255
   End With

End Sub

 

[Fluff]

How about

Sub Pisabel()
   With Range("B:B").SpecialCells(xlBlanks)
      .RowHeight = 15
      For Each Rng In .Areas
         Rng.Offset(, -1).Resize(, 5).Interior.Color = vbRed
      Next Rng
   End With
End Sub