Need to accomplish the following:

1. Loop through column B until isEmpty.
2. Locate cell = "Date" in column B,
3. If = Date Then offset(0, "A") (i.e. cell in column A, same row) =
4. Offset(-6, 2) (i.e. value in the cell 6 rows up in column C)
5. Locate the next cell = "Date" and repeat.

Example:

Do Until Column B isEmpty
'Cell B8 is the first cell found in the loop with the word Date.
If Cell(B8) = "Date" Then
Cell(A8) = Cell(C2).Value
End If
Loop

Thanks everyone for your expertise....


--
mthomas
------------------------------------------------------------------------
mthomas's Profile: http://www.excelforum.com/member.php...o&userid=25649
View this thread: http://www.excelforum.com/showthread...hreadid=486370