VBA (Excel): Compare two columns and if they match, delete the whole row

Delete_Rows_if_Columns_Match.vb

' Excel VBA Macro: This compares two columns, if they match the the row is deleted.

Sub Main()

With Application ' Optimise so deleting rows doesnt hang
    .ScreenUpdating = False
    .Calculation = xlCalculationManual
End With

  ' Set up prompt input boxes for user to choose the columns
  Column1 = InputBox("Choose the first column to compare...")
  If Column1 = "" Or DelimitedColumn1 Like "*[!A-Za-z]*" Then Exit Sub
  Column2 = InputBox("Choose the second column to compare...")
  If Column2 = "" Or DelimitedColumn1 Like "*[!A-Za-z]*" Then Exit Sub

    LastRow = Range("A" & Rows.Count).End(xlUp).Row ' finding last row used

    For i = LastRow To 1 Step -1 ' iterating from last row to 1st
        If Range(Column1 & i).Value = Range(Column2 & i).Value Then Rows(i).EntireRow.Delete ' comparing columns 1 and 2
    Next

With Application
    .ScreenUpdating = True
    .Calculation = xlCalculationAutomatic
    .CutCopyMode = False
End With

End Sub