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!
Bookmarks