Selcet cases after first case not working

If you want to test if they are all empty, you can use:

If worksheetfunction.Counta(Range("H3,H10,H16,H24,H32,P3,P10,P21,P30,P38")) = 0 then