Skip blanks

Hello,

I have a Macro which uses paste special. I want to skip blank cells and
transpose the data. Transposing the data works fine but it doesn't skip the
blank cells. Here's the relevant portion of my Macro:

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
Transpose:=True

Any idea what I'm doing wrong?

Thank you,

Art.