Delete all Blank Rows from data table

S

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
 
J

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads


Top