Try this short macro:

Sub stacy()
n = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To n
If IsEmpty(Cells(i, 1)) Then
Cells(i, 1).FillDown
End If
Next
End Sub

--
Gary''s Student - gsnu200821


"stacey" wrote:

In other words I have a spreadsheet with 6000 some rows. The 1st column
either has a value or is blank. If it is blank I want it to fill in the one
above. I know about some keystrokes but that would take too long. Is there
something quicker I could create? Or is there a way to do this in Access?