Sub RemoveBlankRows()
Columns("A:A").SpecialCells(xlCellTypeBlanks).Dele te Shift:=xlUp
End Sub


manually:
1 select the column
2 F5 click Special
3 select blanks, then click OK
4 with the pointer over a selected cell, right click & select delete



"sreedhar" wrote:


hi

MY problem is to resize the matrix after deletion for example

problem matrix:

1 0 1 0 1
0 0 1 0 1
1 0 0 1 0
0 1 0 0 1
1 0 0 1 0
...............
...............

for example after deleting rows 2 and 4 like this

1 0 1 0 1

1 0 0 1 0

1 0 0 1 0
................
................

we have to resize the matrix by bring 3 row into 2 and if 4 exist it
should be in 3 else if 5 row exist it should bring to 3 row likewise
end of the page.

1 0 1 0 1
1 0 0 1 0
1 0 0 1 0

so can any one plz help me regarding this as soon as possible

thanks
sree


--
sreedhar
------------------------------------------------------------------------
sreedhar's Profile: http://www.excelforum.com/member.php...o&userid=27582
View this thread: http://www.excelforum.com/showthread...hreadid=473241