If you mean to delete the rows with ColF 0 try the below

Sub DeleteRows()
Dim lngRow As Long
For lngRow = Cells(Rows.Count, "F").End(xlUp).Row To 1 Step -1
If Range("F" & lngRow).Text = "0" Then Rows(lngRow).Delete
Next
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"LiAD" wrote:

Morning,

Could some please give me a macro that will delete the contents of any cells
in the range A1 to F100 if the value in the corresponding F cell = 0. So the
table would look like

A B C D E F
xx yy aa pp 1
dd aa uu rr 1
oo kk rr ee 0
kk mm nn gg 0

and i would like the macro to delete A3:F4. All the the list will be a
continous string of 1's followed by a break to zero then a continous list of
zero's, it will not read 1 1 1 0 1 0 1 for example, only 1 1 1 1 0 0 0

Thanks
LiAD