Macro to hide empty rows

Hi,

I would like to create a macro that would automatically hide rows 55 to 215 of the active sheet if the cell on column "A" contain no value (but it might contain a formula).

Thanks in advance,

Simon