delete all blank cells and move all non blank cells

[jkicker]

hi all,

I have a sheet where in every row there are many blank cells and 3 cells have data in them, all in different columns. ie:

1		data1				data2
	2		data3					data4
			3			data5	data6
		4		data7	data8

<tbody>
</tbody>

I would like to delete all the empty cells and move all the data into the first 3 columns. ie:

1	data1	data2
2	data3	data4
3	data5	data6
4	data7	data8

<tbody>
</tbody>

Anybody got a macro for this?
Thanks.

 

[Rick Rothstein]

See if this macro works for you...

Sub DeleteBlanksMoveDataLeft()
  ActiveSheet.UsedRange.SpecialCells(xlBlanks).Delete xlShiftToLeft
End Sub

 

[jkicker]

Bingo! Thank you Rick!