Sub orderNumber()

Dim i As Integer
Dim j As Integer
Dim inData As Worksheet
Dim outData As Worksheet
Dim countRowAct As Integer
Dim countRowBase As Integer

    Windows("20181008BASE.xlsx").Activate
    Windows("20180801Act.xlsm").Activate

    Set outData = Workbook("20181008BASE.xlsx").Worksheets("BASE")
    Set inData = Workbook("20180801Act.xlsm").Worksheets("Sheet2")

    countRowAct = Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row
    countRowBase = Worksheets("BASE").Cells(Rows.Count, 1).End(xlUp).Row

    For i = 1 To countRowAct
        For j = 1 To countRowBase
        
            If Split(inData.Cells(i, 4).Value, " ", 1) = outData.Cells(j, 8).Value And Right(Split(inData.Cells(i, 4).Value, " ", 3), Len(Split(inData.Cells(i, 4).Value, " ", 3) - 1)) = outData.Cells(j, 11).Value Then
            
                inData.Cells(i, 3).Value = outData.Cells(j, 9).Value
            
        
            End If
        
         Next j
     
    Next i

End Sub