Delete all Blank Rows from data table

[Shazi]

Hi,

I have Sheet1, where I put the filtered data from DailyPurchasing
sheet CategoryWise, it is variable data, every time the no. of rows
are different.
then I copy into Sheet1.

I made a macro to delete all the empty rows after the data is placed.
see my procedure.

Selection.End(xlDown).Select (after this line I need an other
line to delete variable data, because it is always changed. some time
15 rows and some time 50 rows are filtered.

the given below procedure deletes the data from A17. which is not
good.
I dont understand how to fix this problem.

pls help me out.


Sub DelRows()

Range("A4").Select
Selection.End(xlDown).Select
Range("A17").Select ' <== this should be some thing
else
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.Delete
Range("A4").Select

End Sub

Regards.

Shahzad

 

[Joel]

Sub DelRows()
With ActiveSheet
Set LastCell = .Range("A" & Rows.Count).End(xlUp)
.Range(.Range("A4"),
LastCell).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
End Sub

 

[Ron de Bruin]

Warning: See
http://www.rondebruin.nl/specialcells.htm

 

[Shazi]

Warning: Seehttp://www.rondebruin.nl/specialcells.htm

--

Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm






- Show quoted text -

Thank you Rone, you have given me good suggession. I like it.
I learn lot of things from your website, and I love you.

Regards.

Shahzad