Search Range for matching value and delete.

[morbdetro]

I still consider myself a VBA noob but I am usualy able to at leaste write partial code. I am not even sure where to start with this one. I would like to have a macro that will take a value in coulmn B and search column A and delete them both. I know I am able to do it semi-manualy with a vlookup to filter out my values but when I start using this spreadsheet there will be upwards of 250,000 numbers in column A and about 5000 in column B when I run the macro. Any help on this would be greatly appreciated.

[JieJenn]

Try

Sub DeleteStuff()
Dim ws As Worksheet: Set ws = ThisWorkbook.ActiveSheet
Dim LR As Long

With ws
LR = .Cells(Rows.Count, 1).End(xlUp).Row
    .Cells(1, 3).Value = "X"
    .Cells(2, 3).Formula = "=VLOOKUP(A2,$B$2:$B$" & LR & ",1,0)"
    .Cells(2, 3).AutoFill .Range("C2:C" & LR)

If .AutoFilterMode = True Then .AutoFilterMode = False
    .Cells(1, 1).CurrentRegion.AutoFilter 3, "<>#N/A"

    .Rows("2:" & LR).Delete

    .AutoFilterMode = False
    
    .Columns("C").Delete
End With

End Sub

[morbdetro]

It deleted all the values in both columns instead of just the matching values.

[morbdetro]

I figured out a macro that somewhat does what I am looking for.

Sub Macro6()
'
' Macro6 Macro
'
Do
If Range("B3") <> 0 Then
    
    Cells.Find(What:=Selection, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
        Selection.Delete Shift:=xlUp
    Range("B3").Select
    Selection.Delete Shift:=xlUp
End If

Loop Until IsEmpty(Range("B3").Select)

End Sub

This searchs for the value of my selected cell in column B and deletes it out of both columns. My problem is now that if the selected value in column B is not in column A It will delete it anyways. I need it to not delete the value in column B and move on to the next value in column B. Any help would be appreciated.