Help!! Not sure how to write this simple code. NEWBIE Find and Replace

[LukeWayne]

I am working on a <acronym title="visual basic for applications">VBA</acronym> to Find from Column B (Sheet 2) and Find in (Sheet 1) and Replace the value = Column B in Sheet 2 of which = Column A (the replacement value.) When I run the macro it works, but I have multiple values = to the same value in Column B and it is only choosing one of those values to replace. How do I write this code to let it replace with multiple values it is equal to.

Here is the code:

Option Explicit
Option Compare Text

Sub FIND_AND_REPLACE()
On Error Resume Next
Application.ScreenUpdating = False

Dim toFind As String, toReplace As String, rng As Range, cel As Range, i As Long, frow As Long, _
frowT As Long, wk As Worksheet, ws As Worksheet, j As Long
Set wk = Sheet1: Set ws = Sheet2

frow = wk.Range("AM" & Rows.Count).End(xlUp).Row
frowT = ws.Range("A" & Rows.Count).End(xlUp).Row

Set rng = wk.Range("AM2:AQ" & frow)

For i = 2 To frowT
toFind = ws.Range("B" & i).Value
toReplace = ws.Range("A" & i).Value
rng.Replace What:=toFind, Replacement:=toReplace, LookAt:=xlWhole, MatchCase:=False
Next i

For i = 2 To frow
wk.Range("AR" & i) = ""

For j = 39 To 43
If Trim(wk.Cells(i, j)) <> "" Then
wk.Range("AR" & i) = wk.Range("AR" & i) & "," & Trim(wk.Cells(i, j))
End If
Next j

If Trim(wk.Range("AR" & i)) <> "" Then
wk.Range("AR" & i) = Right(wk.Range("AR" & i), Len(wk.Range("AR" & i)) - 1)
End If

Next i

Application.ScreenUpdating = True
MsgBox "Done"
End Sub

 

[Tetra201]

There is only one. Sheet 1 has one "3130LF" and is = 64.946 & 10.494 from Sheet 2. And by the way I am only working with one column in Sheet 1...

Sorry, I see no logic and don't understand why you posted the code tailored to a different project.

 

[LukeWayne]

Sorry, I see no logic and don't understand why you posted the code tailored to a different project.

I used a previous VBA code because it has similar use. I am not experienced at this at all! I'm just trying to get it to replace a column in Sheet 1 with what it's equal to in Sheet 2. (Sheet 2 Column A=Column B)=Sheet 1 Column replacement) In some cases it may be equal to two results because the manufacture numbers repeats in Column B in Sheet 2 as seen in the picture above. Right now this macro works in a way that only replaces Sheet 1 Column with only one value where it could have been two values. I want both values from Column A of Sheet 2.