Move non-formula cells in a range up one cell

[dunk2]

Hi,

I want to move a range (D34:L44) of cells up by three rows if
a) they do not contain a formula
b) if they are non-zeros numeric
I need to repeat this for all worksheets (about 30) that start with the letter 'Z' or 'P'
I would like to be able to execute this by macro, saving a lot of manual boredom!!
Any idea's ?
Thanks in advance