VBA if cell contains value then copy it

Hi looking for a simple VBA That would check column D from row10 to row 150 if cell contains value then copy that cell to D9 and do print activ sheet If cell is empty do nothing

I get data from 1 to 150 and need to print label I'm currently doing one buy one copy paste and print So if anyone could help I would appreciate it