Here's a code solution:

Code
-------------------
Sub test()

Dim iFirstRow As Long
Dim iLastRow As Long
Dim iFirstCol As Integer
Dim iLastCol As Integer

Dim i As Long
Dim j As Long

iFirstRow = 1 'Change to your first data row
iLastRow = Range("A65536").End(xlUp).Row
iFirstCol = 1 'Change to your first data column
iLastCol = 70 'Change to your last data column

For i = iFirstRow To iLastRow
For j = iFirstCol To iLastCol
If Cells(i, j).Value = "" Then
Cells(i, 82).Value = Cells(i, j - 2)
Exit For
End If
Next
Next

End Su
-------------------



--
Message posted from http://www.ExcelForum.com