Delete rows based on match criteria in two excel files, 1 might be .csv file .Opened in Excel=Fail Chaos

[fixer]

Sub test2()
    Dim cars As Range
    Dim csv As Range
    
    Set cars = Workbooks.Open(ThisWorkbook.Path & "\1.xls") _
                .Sheets(1).Cells(1).CurrentRegion
                
    Set csv = Workbooks.Open(ThisWorkbook.Path & "\BasketOrder..csv") _
                .Sheets(1).Cells(1).CurrentRegion.Columns("C")
    
    cars.Cells(2).Copy
    csv.Cells(1).Insert xlDown
    Set csv = csv.Offset(-1).Resize(csv.Cells.Count + 1)
    
    cars.AdvancedFilter xlFilterInPlace, csv
    cars.Offset(1).EntireRow.Delete
    cars.Parent.ShowAllData
    
    cars.Parent.Parent.Close True
    csv.Parent.Parent.Close False
    
End Sub

Problem Solved

---

** Cross Post.. mrexcel.com _ https://www.mrexcel.com/forum/excel-...ntire-row.html