Sub delete_some_rows()
Dim C As Range
With Columns("H")
Do
Set C = .Find(1, LookIn:=xlValues, LookAt:=xlWhole, _
MatchCase:=False)
If C Is Nothing Then Exit Do
C.EntireRow.Delete
Loop
End With
End Sub


Gord Dibben MS Excel MVP

On Wed, 8 Nov 2006 14:53:02 -0800, brettopp
wrote:

Via macro, I would like to delete all rows that have a value of one (1) in
column H. All rows that have a value of (1) will be contiguous, meaning they
will follow one after the other (they won't be separate by rows in between
that do not have a value of (1) in column H); however, where the rows with a
value of (1) begin and end will vary each time the macro is used.

For example, rows 1 through 10 will not have a value of (1) in column H, but
rows 11 through 14 will. The next time the macro is run, it may be that rows
one through eight won't have a value of (1) in column H, but rows nine
through eleven will.

I'd like the macro to identify these rows with a value of (1) in column H,
select just those rows, and delete them.

Thanks for the help!