deleting data with macro

[volkl77]

I have recorded all the steps of my macro and it is working fine but i would like to add 2 more steps.

1 First I would like to have it delete all the rows where the values in both columns I and J are "0"

2 After this i would like to have it sort the sheet by column 1.

Any help would be greatly appreciated.

Thanks!

 

[John Davis]

I have recorded all the steps of my macro and it is working fine but i would like to add 2 more steps.

1 First I would like to have it delete all the rows where the values in both columns I and J are "0"

2 After this i would like to have it sort the sheet by column 1.

Any help would be greatly appreciated.

Thanks!

Maybe:

Sub volkl77()
Dim lr As Long

Dim i As Long

lr = Cells(Rows.Count, 1).End(xlUp).Row

For i = lr To 2 Step -1

    If Range("I" & i).Value = 0 And Range("J" & i).Value = 0 Then
    
        Range("I" & i).EntireRow.Delete shift:=xlUp
        
    End If
    
Next i

Range("A2:A" & lr).Sort Key1:=Range("A2"), Order1:=xlDescending

End Sub