How to remove the required rows with vba

[selant]

Hi,
Can you help me write a VBA script to remove the required rows shown in the figure. The range will be A1 to F9. I want to remove the rows which Grade1, Grade2 and Grade3 columns are zero at the same time. Thank you.

 

[Richard Schollar]

Hi

Perhaps:

Sub Remove_Rows()
With ActiveSheet
  .AutofilterMode = False
  .Range("A1").Autofilter
  .Range("A1").Autofilter Field:=3, Criteria1:=0
  .Range("A1").Autofilter Field:=4, Criteria1:=0
  .Range("A1").Autofilter Field:=5, Criteria1:=0
  .Autofilter.Range.Offset(1).EntireRow.Delete
  .AutofilterMode = False
End With
End Sub

 

[selant]

I think it works

Thank you very much Richard.