Macro to find previous non blank cell

[aa2000]

Hi guys

I have a column of data where certain cells contain a value and other are blank, with a varying number of blank cells between each used cell.Example:

w
blank
blank
blank
x
y
blank
z

I am trying (with no luck) to write a macro that will move up from one of the blank cells and find and make bold the first used cell it finds, then stop

Can anyone help?

 

[Peter_SSs]

.. move up from one of the blank cells and find and make bold the first used cell it finds ..

How do we know which blank cell to move up from?

 

[aa2000]

Well this macro will be called by another one which looks through the column to the left of this one. When that macro finds a specific value it looks to this column and if the cell has a value its made bold, if its blank it calls this macro. (Makes sense?)

So I'd like to get it to move up from any blank cell and find the previous cell in that column with a value and make that bold.

 

[aa2000]

Heres my code thus far and it works the every time i press f5, however it is not restricted to finding items in the one column and will make any used cell above the active cell bold. How can I modify it to restrict it one column?

Sub Up()
Dim FirstCol As Long
            
            FirstCol = Cells.Find("*", ActiveCell, xlValues, xlPart, xlByRows, xlPrevious, False, False, False).Activate
            ActiveCell.Font.Bold = True
            
                                       
End Sub

This macro is called by another macro shown below:

Sub Find()

Set Rng2 = Tabelle2.Range("D3:D65536")
Dim c As Object

For Each c In Rng2.Cells
    If c.Value = "FWB" Then
        If c.Offset(0, -3).Value = "*" Then c.Offset(0, -3).Font.Bold = True
        End If
        If c.Offset(0, -3).Value = "" Then Call Up
    If c.Value = "KL" Then
        If c.Offset(0, -3).Value = "*" Then c.Offset(0, -3).Font.Bold = True
        End If
        If c.Offset(0, -3).Value = "" Then Call Up
    If c.Value = "KF" Then
        If c.Offset(0, -3).Value = "*" Then c.Offset(0, -3).Font.Bold = True
        End If
        If c.Offset(0, -3).Value = "" Then Call Up
Next c

End Sub

Another problem I have is that there is nothing to stop the macro "Up" from continuously running after being called so it won't just make bold the first used cell but any above that as well. Anybody know how I can modify it to do that instead?

Thanks!