delete unnecessary data using vba code

[Amit Modi]

hi guys,

please find my querry in attached sheet. And please help me if possible.according to my data and orientation of data I had also provided logic please help me id possible.
thanks'

 

[Luke M]

I think this will do what you want nicely.

Sub DeleteSubLevels()
Dim lastRow As Long
Application.ScreenUpdating = False
With ActiveSheet
    lastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
    .Range("B10:B" & lastRow).AutoFilter field:=1, Criteria1:=">1"
    On Error Resume Next
    .Range("B11:B" & lastRow).EntireRow.SpecialCells(xlCellTypeVisible).Delete
    On Error GoTo 0
    .AutoFilterMode = False
End With
Application.ScreenUpdating = True
End Sub

 

[Amit Modi]

thanks like I will chechk and reply on same.thanks guru