delete blank cells, shift populated cells right

[BonnieM]

I have a very large spreadsheet with rows of data containing blank cells in the middle of a row.

I need to delete the blank cells within a range and shift the populated cells to the right.

I'm a vba beginner.

Tried this in "this workbook":

Sub Blanks()
Range("A1:x9").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlRight
End Sub

but got an error "X 400" which I can't even find in the help screens!

Can anybody be a hero here?

 

[BonnieM]

Whoo-hoo! It appears to have worked! Although I still don't understand all the logic and syntax, I am very grateful for your help! Have a wonderful weekend!