macro to fill blank cells with location

Hi kellen

Try this

Option Explicit
Public Sub test()
    Dim LastRow As Long
    Dim Rng As Range
    Dim fCell As Range
    LastRow = Cells.Find("*", Cells(Rows.Count, Columns.Count), SearchOrder:=xlByRows, _
                         SearchDirection:=xlPrevious).Row
    Set Rng = Range("A3:A" & LastRow)
    For Each fCell In Rng
        If Not fCell.Offset(0, 1) = "" And fCell = "" Then
            fCell.Value = fCell.Offset(-1, 0)
        End If
    Next fCell
End Sub

Hope this helps.

John