VBA to loop through code

[Barry NP]

Hi all,

I need to add code to loop through the code below, but I'm not exactly sure how to do this. Any help would be greatly appreciated.

What this is currently doing (In excel) is filtering on column "H" to find the criteria "No Match". Once found a new row is added to my table in within columns A to E. Then Un-filter column "H". Then repeat filter on column "H" to find the next "No Match" criteria and insert a new row in the table. The filtering and un-filtering needs to be done each time in order to recalculate the formulas in column H below the new added table row.
Can this code be looped until there are no more occurrences of "No Match" in column "H".

The recorded code below does this procedure 3 times but I would like to loop the code until there are no more occurrences of "No Match" in column "H".


Sub Insert_Rows()
'
' Insert_Rows Macro
'

'
ActiveSheet.Range("$H$1:$H$3324").AutoFilter Field:=1, Criteria1:= _
"No Match"
Range("A329:E329").Select
Selection.ListObject.ListRows.Add (328)
ActiveSheet.Range("$H$1:$H$3324").AutoFilter Field:=1

ActiveSheet.Range("$H$1:$H$3324").AutoFilter Field:=1, Criteria1:= _
"No Match"
Range("A331:E331").Select
Selection.ListObject.ListRows.Add (330)
ActiveSheet.Range("$H$1:$H$3324").AutoFilter Field:=1

ActiveSheet.Range("$H$1:$H$3324").AutoFilter Field:=1, Criteria1:= _
"No Match"
Range("A339:E339").Select
Selection.ListObject.ListRows.Add (338)
ActiveSheet.Range("$H$1:$H$3324").AutoFilter Field:=1

End Sub


Many thanks in advance.

Barry.

 

[Norie]

Barry

How do you know where to add the new row?

 

[Barry NP]

Barry

How do you know where to add the new row?

Hi Norie,

Thanks for your response. The new row will be inserted in the table where the filtered match in column H - "No Match" occurs. So if the first "No Match" is on row 100, then new row will be inserted in row 100 and so on until there are no more "No Match" in column H.
Hope that helps
Barry

 

[Norie]

Barry

Do you need to filter?

Could it not be done by finding the first occurrence of 'No Match', inserting a row, finding the next occurrence of 'No Match', inserting a row...?

 

[Barry NP]

Hi Norrie, apols for the delay, been off work a few days! Thanks for your last message. To be honest this is how its currently done by filtering and inserting new rows. This has been working fine, however, the data is now expanding, which means that manually filtering and inserting rows for each occurrence of "No Match" is taking much longer. Was hoping that VBA could be of use to speed up the process.

 

[Norie]

Barry

I wasn't suggesting to change to do it manually, what I described doing could also be done in VBA.