Hi Sandeman,

Assuming that the last data entry can be determined from column A, try:

'=============
Public Sub Tester2()
Dim SH As Worksheet
Dim rng As Range
Dim rw As Range
Dim LRow As Long
Dim i As Long

Set SH = ActiveSheet '<<==== CHANGE
LRow = SH.Cells(Rows.Count, "A").End(xlUp).Row
Set rng = Range("F1:K" & LRow)

For Each rw In rng.Rows
If Application.CountA(rw.Cells) = 0 Then
Cells(rw.Row, "L").Value = "Other"
End If
Next rw
End Sub
'<<=============

---
Regards,
Norman



"Sandeman" wrote in
message ...

Excellent Norman. Thank you very much.

Spoke too soon. The "other" repeats for the length of the spreadsheet.
I'd like it to stop when the data stops. Thanks.


--
Sandeman
------------------------------------------------------------------------
Sandeman's Profile:
http://www.excelforum.com/member.php...o&userid=32440
View this thread: http://www.excelforum.com/showthread...hreadid=528451