Simple loop macro needed

Could you say what other column limits the list to be filled?

If you leave it as it is the macro will either stop at the last entry, or run to the bottom of the sheet, in 2007 that's a long way!!!

Yes, of course...

Would it be possible for the marco to run as long as there is information in column B? Else a more than safe number would be 2000, and I could manually clear away the last name where it's not necessary.

Thanks.

Okay no problem

Try this

Sub FillBlanks()
    Dim LastRow As Long, ThisRow As Long
    Dim LastName
    
    LastRow = Range("B" & Rows.Count).End(xlUp).Row
    For ThisRow = 2 To LastRow - 1
        LastName = Cells(ThisRow, 1)
        If Cells(ThisRow + 1, 1) = "" Then
           Cells(ThisRow + 1, 1) = LastName
        End If
    Next
End Sub

Hope this helps

If this takes care of your needs, please click EDIT in your original post, click GO ADVANCED and set the PREFIX box to SOLVED. It helps everybody!
Also
If you are satisfied by any members response to your problem please consider using the scales icon top right of thier post to show your appreciation.

That worked perfectly, Marcol. Thank you, I really appreciate it.

I've updated location as well as Excel version.

Have a good Easter and thanks again :-)

Cheers,
Darren

You were to quick for me!

I posted the wrong footer and then changed it, please look again.

All done. I'll go back and apply the "solved" to older posts as well.

Cheers

Good Lad!

The moderators will like that!

Wish many more would do the same!

Thank you.