Find Data below Black Cell from Known Cell Below

[Craig B]

Hi,

Just looking for a solution if possible

I have a known cell but I would like to return a value of a cell above just below an Blank Cell
A1 Text 1
A2 Text 2
A3-A11 Data 1 to Data 9
A12 Blank Cell
A13 Required Data
A14 Text
A15-A22 Data 1 to Data 8

So A19 is Known but I need to find the Blank Cell (A12) and then return the value of A13 just below.

The only constant is the blank Cell in between each set of text and data.

Any help would be appreciated

Craig

 

[DanteAmor]

Run this macro:

Sub blackcell()
    For Each c In Range("A11", Range("A" & Rows.Count).End(xlUp))
        If c.Interior.ColorIndex = 1 Then
            MsgBox "Value below the black cell : " & c.Offset(1)
            Exit Sub
        End If
    Next
End Sub