Delete Row when cell contains another cell text

[Kell2Jam]

Hi, very new to this.

I need help with finding data from one sheet to finding data in another sheet and deleting that row.
I have had a lot of trouble with this and cant seem to crack it.
Can anyone help a formula?

 

[MARK858]

See how you get on with the code below (make sure that there is at least one non-match when testing).

Sub Test2()
    Dim myCell As Range, endCell As Long, destCell As Range
    Application.ScreenUpdating = False
    
    With Sheets("Last report")
        For Each myCell In .Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row)
            If myCell.Value <> myCell.Offset(-1).Value Then
                endCell = .Columns("A").Find(myCell.Value, , xlValues, , xlByRows, xlPrevious).Row
                Set destCell = Sheets("Open PO's Report").Columns("A").Find(myCell.Value, , xlValues, , xlByRows, xlNext)
                If Not destCell Is Nothing Then Range(.Cells(myCell.Row, "A"), .Cells(endCell, "J")).Copy destCell
            End If
        Next
    End With
    
    Application.ScreenUpdating = True
End Sub

 

[Kell2Jam]

With the report i run there should never be any case where there is no match, is there anything i can do if there is not 1 non-match? or would it just be i would have to create a fake row cell every time?

 

[MARK858]

Did you try the last code posted? it won't matter if there are no non-matches when the code runs but it needs to be tested with a non-match as despite you stating

With the report i run there should never be any case where there is no match

you obviously did have one to get the error and so we need to make sure that the code is working in case you get the same again.

 

[Kell2Jam]

Ok well i have ran the code and it works great, i havent gotten any bugs, i will run another test right now just to confirm, this test will have new data.

Thanks again and thank you for being so pacient.

 

[Kell2Jam]

How would i alter this code to select for just a selected cell to a selected cell? as in if i wanted to add into the comments a number that matches the vendor name.
sheet to be copied from is "Contact list", cell column to match is "A" cell column to copy is "B"
Sheet to copy on is "Open PO's Report", Cell column to match "D", cell column to paste "I"