Posting results in matched column, accordingly VBA

[rjackson]

This is the code I borrowed from another site that works fine but I want to post my results in column F on sheet1 where A from sheet1 matches A from sheet2. Any help would be appreciated. Thanks,

Sub FindMatches()
Dim Sht1Rng As Range
Dim Sht2Rng As Range
Set Sht1Rng = Worksheets("Sheet1").Range("A1", Worksheets("Sheet1").Range("A65536").End(xlUp))
Set Sht2Rng = Worksheets("Sheet2").Range("A1", Worksheets("Sheet2").Range("A65536").End(xlUp))
For Each c In Sht2Rng
Set d = Sht2Rng.Find(c.Value, LookIn:=xlValues)
If Not d Is Nothing Then
Worksheets("Sheet1").Range("F65536").End(xlUp).Offset(1, 0).Value = c.Value
Worksheets("Sheet1").Range("F65536").End(xlUp).Offset(0, 1).Value = c.Offset(0, 1).Value
Set d = Nothing
End If
Next c
End Sub

 

[rjackson]

basically i have one set of data with 22000 records and one set with 9000 records and i want to post a matched field from the set with 9000 records to the set with 22000 records...thanks