In a macro, I am selecting a Column and then doing a Goto Special
Blanks.

I need to delete that and all following rows in the same macro.

So far I have;
Columns("A:A").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
ActiveCell.Activate

How can I get what row the Active cell is so I can do this;
Rows("???:10000").Select ??? = the Active Row
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp

Many Thanks in advaance!

I believe a one-liner will delete all blank rows in column A:

Columns("A:A").SpecialCells(xlCellTypeBlanks).Dele te

This will only delete from column A, non of the other columns.

Mike F
"Ron Luzius" wrote in message
...
In a macro, I am selecting a Column and then doing a Goto Special
Blanks.

I need to delete that and all following rows in the same macro.

So far I have;
Columns("A:A").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
ActiveCell.Activate

How can I get what row the Active cell is so I can do this;
Rows("???:10000").Select ??? = the Active Row
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp

Many Thanks in advaance!

That will work sort of..
I actually need to delete the entire row(s) up to and including row 10000.

I did a
Columns("A:X").SpecialCells(xlCellTypeBlanks).Dele te

But as an automated macro (no human intervention), how do I get it to not
ask "Are you sure?"


"Mike Fogleman" wrote in message
. ..
I believe a one-liner will delete all blank rows in column A:

Columns("A:A").SpecialCells(xlCellTypeBlanks).Dele te

This will only delete from column A, non of the other columns.

Mike F
"Ron Luzius" wrote in message
...
In a macro, I am selecting a Column and then doing a Goto Special
Blanks.

I need to delete that and all following rows in the same macro.

So far I have;
Columns("A:A").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
ActiveCell.Activate

How can I get what row the Active cell is so I can do this;
Rows("???:10000").Select ??? = the Active Row
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp

Many Thanks in advaance!

Application.DisplayAlerts = False
Columns("A:X").SpecialCells(xlCellTypeBlanks).Dele te
Application.DisplayAlerts = True

Also you may try:

Columns("A:A").SpecialCells(xlCellTypeBlanks).Enti reRow.Delete

Mike F
"Ron Luzius" wrote in message
...
That will work sort of..
I actually need to delete the entire row(s) up to and including row 10000.

I did a
Columns("A:X").SpecialCells(xlCellTypeBlanks).Dele te

But as an automated macro (no human intervention), how do I get it to not
ask "Are you sure?"


"Mike Fogleman" wrote in message
. ..
I believe a one-liner will delete all blank rows in column A:

Columns("A:A").SpecialCells(xlCellTypeBlanks).Dele te

This will only delete from column A, non of the other columns.

Mike F
"Ron Luzius" wrote in message
...
In a macro, I am selecting a Column and then doing a Goto Special
Blanks.

I need to delete that and all following rows in the same macro.

So far I have;
Columns("A:A").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
ActiveCell.Activate

How can I get what row the Active cell is so I can do this;
Rows("???:10000").Select ??? = the Active Row
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp

Many Thanks in advaance!