Seroleh,

Welcome to the Excel Forum.

Try:


Sub HideBlankCells()
Range("A36:A39").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub