How to Optimize This Code?

Originally Posted by sintek

What are you actually wanting to achieve here...can you explain the process...

Hello sintek, thanks for the interest!

My goal is to replace all the product codes (SKU) for the category code. I have a periodic data sheet that contains all transactions identifying the client ID. The original the file has all the SKU numbers also, which can be used to identify which category it belongs. I'm not sure if this is the best way of doing it, but for my actual knowledge it suits, as I don't have much more time to study before completing this task. The only reason for selection is that it makes it easier, as each data sheet can vary on lenght and also for using 2 different worksheets.

I tried adapting the code to skip dates and text and it seems to have worked faster, although it still demands a couple hours. I will keep using this for now, until and if someone has any other idea that could help.

Sub MultiFindNReplace()
'Update 20140722
    Dim Rng        As Range
    Dim InputRng   As Range
    Dim ReplaceRng As Range
    Dim xTitleId   As String
    xTitleId = "KutoolsforExcel"
    With Application
        Set InputRng = .InputBox("Original Range ", xTitleId, Selection.Address, Type:=8)
        Set ReplaceRng = .InputBox("Replace Range :", xTitleId, Type:=8)
        .ScreenUpdating = False
        .EnableEvents = False
        .Calculation = xlCalculationManual
        For Each Rng In ReplaceRng.Columns(1).Cells
            If Not IsDate(Rng.Value) Then
            If IsNumeric(Rng.Value) Then
                InputRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value, Lookat:=xlWhole
            End If
            End If
        Next
        .Calculation = xlCalculationAutomatic
        .EnableEvents = True
        .ScreenUpdating = True
    End With
End Sub