Quote Originally Posted by mikerickson
Running this macro will delete all rows from the selected cell down to the last cell in the column of the selection. (Data in a different column, below the last data in the selected column will not be deleted.)

[vba]With Selection
.Value = "x"
Range(.Cells(1, 1), .EntireColumn.Cells(.EntireColumn.Rows.Count, 1).End(xlUp)).EntireRow.Delete
End With[/vba]

Thanks for the help but I am not following. How do I specify the range of rows to be selected ? Sorry but I am new to this.