Delete entire row base on two conditions

[Panoos64]

Hi all, i would like to prepare a VBA code so that to run through col. "F" and where the text is like "Opening Balance" and in col. "J" is zero number "0" should delete entire row. Please see below an extract of my data row "28" which i wanted to delete. Thank you all in advance

	A	B	C	D	E	F	G	H	I	J
28						Opening Balance PASTRIES & DELICATESSEN				0

<colgroup><col style="mso-width-source:userset;mso-width-alt:739;width:16pt" width="21"> <col style="mso-width-source:userset;mso-width-alt:796; width:17pt" width="22" span="5"> <col style="mso-width-source:userset;mso-width-alt:13226;width:279pt" width="372"> <col style="mso-width-source:userset;mso-width-alt:1024; width:22pt" width="29" span="4"> </colgroup><tbody>
</tbody>

 

[Fluff]

How about

Sub Panoos64()
   With ActiveSheet
      If .AutoFilterMode Then .AutoFilterMode = False
      .Range("A1:J1").AutoFilter 6, "opening balance*"
      .Range("A1:J1").AutoFilter 10, "0"
      .AutoFilter.Range.Offset(1).EntireRow.Delete
      .AutoFilterMode = False
   End With
End Sub

 

[Panoos64]

Thank you so much Fluf, is perfect. Have a great lovely day!

 

[Fluff]

You're welcome & thanks for the feedback