Code:Public Sub BasicLoop()Dim rowEnd As Long Dim rowLast As Long Dim i As Long Application.ScreenUpdating = False With Worksheets("Sheet2") Worksheets("Sheet1").UsedRange.Copy .Range("A1") rowLast = .Cells(.Rows.Count, "A").End(xlUp).Row rowEnd = rowLast For i = rowLast To 1 Step -1 If LCase(.Cells(i, "A").Value) Like "product*id" Then If .Cells(i, "B").Value <> "Argentina" Then .Rows(i).Resize(rowEnd - i + 1).Delete End If rowEnd = i - 1 End If Next i End With Application.ScreenUpdating = True End Sub
Bookmarks