Delete blank rows
 

It would not be possible to merge 9 columns in to 1 but all the data to
appear in column A same row as original, unless you have sporadic data
e.g column F data in Row 6 no other columns have data in row 6....etc

How is the data set up? is it like i described?

If it is then:
Sub blank_remove()
With ActiveSheet.UsedRange
..SpecialCells(xlCellTypeBlanks).Delete shift:=xlToLeft
End With
End Sub


--
The Code Cage Team

Regards,
The Code Cage Team
www.thecodecage.com
------------------------------------------------------------------------
The Code Cage Team's Profile: http://www.thecodecage.com/forumz/member.php?userid=2
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=11097