Macro for Comparison

Must respect forum rules : code tags ‼

Sorry!! Edited as per the rule

How about this instead?

Sub NA()
Const StartRow_patches As Integer = 2
Const StartRow_NA As Integer = 2
Const WS_patches As String = "patches"
Const WS_NA As String = "NA"

Dim i As Integer
Dim j As Integer
Dim LastRow_patches As Integer
Dim LastRow_NA As Integer

Sheets(WS_patches).Select
LastRow_patches = Sheets(WS_patches).Range("A25000").End(xlUp).Row
LastRow_NA = Sheets(WS_NA).Range("A25000").End(xlUp).Row

For i = StartRow_NA To LastRow_NA
    For j = LastRow_patches To StartRow_NA Step -1
        If (Sheets(WS_NA).Cells(i, 1) = Sheets(WS_patches).Cells(j, 1)) And (Sheets(WS_patches).Cells(i, 2) = Sheets(WS_patches).Cells(j, 2)) Then
            Sheets(WS_patches).Rows(j).Select
            Sheets(WS_patches).Rows(j).Delete
        End If
    Next j
Next i

End Sub

Sorry!! this didn't work the way I wanted

Thank You!

It would help me to help you if you explained what the problem is...

The macro needs to compare the datas in column A and B of the sheets 'Patches' and 'NA' and deletes the data in the 'Patch' sheet that matches with the ones in the 'NA' sheet.
It should loop with data in the 'patches' sheet with the ones in the 'NA' sheet.
There are multiple patches (column B) for the same server (Column A). so i want to check whether a server and its patches list in NA sheet matches if so it has to be deleted in the patches sheet.
I have saved the result data which i want in the 'Result' for your reference.

Option Explicit
Sub Macro1()
    
    Const lngStartRow As Long = 2 'Starting data row number. Change to suit.
    
    Dim lngMyCol As Long, _
        lngMyRow As Long
    Dim xlnCalcMethod As XlCalculation
            
    With Application
        xlnCalcMethod = .Calculation
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
    End With

    lngMyCol = Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column + 1
    lngMyRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    
    With Columns(lngMyCol)
        With Range(Cells(lngStartRow, lngMyCol), Cells(lngMyRow, lngMyCol))
            .Formula = "=IF(ISERROR(VLOOKUP(B" & lngStartRow & ",NA!B:B,1,FALSE)),"""",NA())"
            ActiveSheet.Calculate
            .Value = .Value
        End With
        On Error Resume Next 'Turn error reporting off - OK to ignore 'No cells found' message
            .SpecialCells(xlCellTypeConstants, xlErrors).EntireRow.Delete
        On Error GoTo 0 'Turn error reporting back on
        .Delete
    End With
    
    With Application
        .Calculation = xlnCalcMethod
        .ScreenUpdating = True
    End With

    MsgBox "Row(s) have now been deleted.", vbInformation

End Sub

this code works but it doesn't work for the patch ''Must Upgrade Product SP Before Applying Patch' alone. I have marked the patch in red.

1) I'm not sure that I'm following - columns A and B should match? But you only check column B?

2) I also made an ugly mistake! Instead of

If (Sheets(WS_NA).Cells(i, 1) = Sheets(WS_patches).Cells(j, 1)) And (Sheets(WS_NA).Cells(i, 2) = Sheets(WS_patches).Cells(j, 2)) Then

I had

If (Sheets(WS_NA).Cells(i, 1) = Sheets(WS_patches).Cells(j, 1)) And (Sheets(WS_patches).Cells(i, 2) = Sheets(WS_patches).Cells(j, 2)) Then