Match Column Values

I have 2 worksheets in a single workbook named :
"DriversAllocation" & "Orders"

In "DriversAllocation" i only have 2 cols :
CustID Driver
Shop_01 Tom
Shop_02 Dick
Shop_03 Harry
Shop_04 Tom
Shop_05 Tom


In "Orders" i have 5 cols :
Date CustID Prod Qty Driver

My objective here is to have the driver col in "orders" filled up with the driver(with the click of a button), that is assigned to the CustID based on the comparison made with "DriverAllocation".

What i have now is :

Do While Worksheets("Orders").Range("B" & i).Value ""

For i = 2 To lastRow1
If (Worksheets("Orders").Range("B" & i).Value) = (Worksheets("DriverAllocation").Range("A" & i).Value) Then

DriverN = Worksheets("DriverAllocation").Range("B" & i).Value
Worksheets("Orders").Range("E" & i).Value = DriverN

End If
intRow = intRow + 1
Loop