A maco makes all my Vlookups and formulas disappear!!!!

Hi guys,
So I have this macro to multiply all any row in a workbook that has an X in column B by a coefficient I designate. The macro works but when I run it not only does it multiply the rows i want but it also makes all the vlookups and formulas in any other cell that does not have a X in column B disappear and just leaves the most recent number that was in the cell but no formulas or vlookup. How do I stop this from happening I am very confused. Here is the code.
Thank you everyone,
Your friend

Sub test123()
    Dim ws As Worksheet, e, coef, myCurr As String
    For Each e In Array(Array("Euro", "a1"), Array("US Dollar", "b1"))
        If Sheets("Config & Summary").[i2] Like "*" & e(0) & "*" Then
            myCurr = e(0)
            coef = Sheets("currency").Range(e(1))
            Exit For
        End If
    Next
    For Each e In Array(Array("British Pound", "a2"), Array("US Dollar", "b2"))
        If Sheets("Config & Summary").[i2] Like "*" & e(0) & "*" Then
            myCurr = e(0)
            coef = Sheets("currency").Range(e(1))
            Exit For
        End If
        Next
    If myCurr = "" Then MsgBox "No matched data in ""Config!I2""": Exit Sub
    For Each ws In Worksheets
        With ws.Range("b3", ws.Range("b" & Rows.Count).End(xlUp)).Resize(, 4)
            If Application.CountIf(.Columns(1), "x") Then
                With .Offset(, 1)
                    .Value = ws.Evaluate("if(b3:b" & .Cells(.Rows.Count, 1).Row & _
                        "=""x""," & .Address & "*" & coef & "," & .Address & ")")
                End With
            End If
        End With
        ws.[h2] = myCurr
    Next
End Sub

HI thank you for the reply,
I tried it and yes it worked it multiplied the rows without breaking the other formulas however I get a debug error N.2042. I will put the line of code which causes the error below.
Thank you.
Your friend

If C.Value = "x" Then

hi is there a way you can help me. So I altered the above code a little and it works very well for for just converting from dollars to euros however I need to be able to go back from euros to dollars I have tried a few different methods but am coming up frankly short. For some reason it keeps multipliyng but weird numbers and I am just confused below is the code I have.
Thank you,
Your friend

Sub test123456()
Dim cr As Worksheet: Set cr = Sheets("currency")
   Dim I As Integer
    Dim C As Range
    Dim ws As Worksheet, e, coef, myCurr As String
    'attempting to convert back from euros first
    'basically here if cell H2 equals euro then it must convert to dollars
    'I will eventually have a similar if statement to convert all currencies back to dollars
    For Each e In Array(Array("Euro", "B1"), Array("US Dollar", "C1"))
        If Sheets("Config & Summary").[H2] Like "*" & e(0) & "*" Then
            myCurr = e(0)
            coef = cr.Range("c2").Value
            Exit For
        End If
        Next
    
    
    
    
    'converting to euros
    For Each e In Array(Array("Euro", "B1"), Array("US Dollar", "C1"))
        If Sheets("Config & Summary").[i2] Like "*" & e(0) & "*" Then
            myCurr = e(0)
            coef = cr.Range("B2").Value
            Exit For
        End If
        Next
        'converting to pounds
    For Each e In Array(Array("British Pound", "B2"), Array("US Dollar", "C2"))
        If Sheets("Config & Summary").[i2] Like "*" & e(0) & "*" Then
            myCurr = e(0)
            coef = cr.Range("B3").Value
            Exit For
        End If
        Next
        
        'checking for n/a error and configuring loop
    If myCurr = "" Then MsgBox "No matched data in ""Config!I2""": Exit Sub
    
   For Each ws In Worksheets
            For Each C In ws.Range("b3", ws.Range("b" & ws.Rows.Count).End(xlUp))
                If Not IsError(C.Value) Then
                    If C.Value = "x" Then
                        For I = 1 To 4
                            C.Offset(0, I).Value = C.Offset(0, I).Value * coef
                        Next I
                    End If
                End If
            Next C
        ws.[H2] = myCurr
    Next ws
    
End Sub