Need to do the following:

Example:
Assuming Loop finds The first populated cell at A8
If A8 < "" Then
variable = B8.value
For each cell below A8 that = ""
Each cell below B8 = variable
Until A < ""
Continue Loop from NEXT CELL < ""

My code so far, which works except for iterating down the column.

Dim i2
For Each i2 In Range([profile!C1], [profile!C1].End(xlDown))
If i2.Offset(0, -2) < "" Then
Dim empID
empID = i2.Offset(0, -1).Value
If i2.Offset(1, -2) = "" Then
i2.Offset(1, -1) = empID
End If
End If
Next

Thanks again everyone!


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