Help With a Looping Task
 

Am new on macros. I need assistance to successfully loop thru a task.
The task is as follows: I have two long tables on different sheets. I
need to lookup and pick up date from the second table. I attempted
solving it by bringing the tables into one sheet but isnt running
properly.

Dim z As Long
Dim i As Long
z = 2
i = 2
Do While Range("A" & z) < ""
If Range("A" & z).Value = Range("E" & i).Value Then
Range("C" & z).Value = Range("F" & i).Value
z = z + 1
i = 2
Else
i = i + 1
End If
Loop

================================================== ============
sheet1 sheet2

Names Date Names Date
===== ====

AAICDLTD AAICDLTD 11-Jan-01
ABALUF ABANITO 27-Jul-01
ABIMACJ ABALUF 28-Aug-02
ABIMACJ 19-Nov-01
ADESEUN
26-May-03
ABALUF 28-Aug-02