Hi,

Select Column then Data > Filter > Autofilter and then select non blanks and delete rows

VBA Noob