Brilliant Don, thanks a lot.

"Don Guillett" wrote:

Sub deleteblocks()
'insert a row at row2 FIRST
mc = 1 'Column A
For i = Cells(Rows.Count, mc).End(xlUp) _
.Row To 2 Step -1
If Len(Application.Trim(Cells(i, mc))) 0 _
And Cells(i, mc) = 0 Then
Range(Cells(i, mc), Cells(i, mc).End(xlUp)) _
.EntireRow.Delete
End If
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"tom mcd" <tom wrote in message
...
below is the spreadsheet I have with a lot of data. I need to keep only
the
data which has in cell column (status) c: the value 1. If the value is 0
then
the rows above the 0 are not required. As there are over 15,000 rows and
no
set amount of rows for each block (column A0 does anyone have a function
or
module solution for this query. Thanks again all.

block house status
100x Perth Crescent 100 Perth Crescent A
102 Perth Crescent S
0


1015x Dumbarton Road 1019 Dumbarton Road A
1015 Dumbarton Road S
1017 Dumbarton Road S
1

101x Craigs Avenue 101 Craigs Avenue A
107 Craigs Avenue A
103 Craigs Avenue S
105 Craigs Avenue S
1