Matching two columns and copying the corresponding rows to a new sheet

Hello,

I am trying to Find on Sheet1 the mean Annual wages that matches the mean Annual wages on Sheet2.
Once a match is found I would like that copied from Sheet 1 and pasted to the 3rd Sheet named "Matches".

I've done some research and all I could find is a code that looks like this...

 Dim rng As Range
     Set rng = Range("C:C").Find(What:=ActiveCell.Value, _
         LookAt:=xlWhole, MatchCase:=False)
     If Not rng Is Nothing Then
         rng.Offset(0, 1).Select
     End If

It doesn't really make sense but can anyone guide me in the right direction?

Thank You!

Try this:

Sub x()

Dim r As Range, r2 As Range

For Each r In Sheet1.Range("B4", Sheet1.Range("B" & Rows.Count).End(xlUp))
    Set r2 = Sheet2.Range("B:B").Find(What:=r.Value, lookAt:=xlWhole, MatchCase:=False)
    If Not r2 Is Nothing Then
        r.EntireRow.Copy Sheet3.Range("A" & Rows.Count).End(xlUp)(2)
        Set r2 = Nothing
    End If
Next r

End Sub

Thank you,

What if I wanted to match the columns with the job description?
How would I alter the code?

I can tell you, but see if you can work it out. There's a loop through the first sheet which searches the second...

Should I use a nested loop with the inst function?

All you have to do is change the ranges in the code above that you are searching and comparing. There's no need to add anything new. I can't access your file now, so can't check the references.