How to delete rows of data based on cell values in VB?

[drx]

Hi all,
I have a block of data in columns AH to AM.

What I want to do is delete any rows which contain a "0" as the cell value in column AK, with VBA.

Note I don't want to delete the entire row, just the selection across AH to AM (similar to "shift cells up" type manual operation).

Any ideas?

[Paul]

Hi Drx,

The following macro will delete columns AH:AM for any row where AK has the value 0. (e.g. Deletes AH3:AM3, shifting the cells below that up a row)

Hope it helps!

Sub delrows()
Dim i As Long, LR As Long
Application.ScreenUpdating = False
LR = Range("AK" & Rows.Count).End(xlUp).Row
For i = LR To 1 Step -1
    If Cells(i, "AK").Value = 0 Then
        Range(Cells(i, "AH"), Cells(i, "AM")).Cells.Delete Shift:=xlShiftUp
    End If
Next i
Application.ScreenUpdating = True
End Sub