Select the range and then:

Sub FillRange()
v = ""
For Each r In Selection
If r.Value < v Then
v = r.Value
Exit For
End If
Next
Selection.Value = v
End Sub

--
Gary''s Student - gsnu200801


"LuisE" wrote:

There is only one non-blank cell in a given range; I need to populate the
rest of that range with that value. The cell containing the value could be
anywhere in that range so I cant use fill down, up, etc by default.

Thanks in advance