Hi Sid,

The code, as John had written it, would delete the entire cell, and the rest of the cells in the column would shift up.

Try filling 3 rows by 3 columns with data. =rand() will fill it quite nicely. Then run the following line of code with one of those cells selected.

[vba]Activecell.Delete[/vba]

One of your columns of data will be a little shorter now.