Formula or macro to hide cell information for hidden row

[RPM7]

Is there a formula that will display the status of the current row?

I'm using filters to show/hide rows; however, I have a range that is displaying information about each respective rows.
I have a VBA macro that then lists the information in the range but it shows everything including the hidden rows.

I have two options essentially.
Either change the VBA to ignore hidden rows in the range or

Private Sub CommandButton1_Click()

Dim cell As Range, cRange As Range, Warning As String

Set cRange = ActiveSheet.Range("EV13:EV50")

    For Each cell In cRange
        If cell.Value <> "" Then
            Warning = Warning & cell.Offset(0, 0).Value & vbCr & vbCr
        End If
    Next cell
    CommandButton1.BackColor = RGB(255, 255, 255)
    CommandButton1.Caption = "View Error Report"
    MsgBox Warning, vbOKOnly, "Error Report"

End Sub

Or I can use a formula to display a blank cell if its respective row is empty.

IF(current row =hidden,"",data)

Does anyone know if this is possible?
My VBA experience is basic at best, hence I would be happy to use a formula if one existed.

Thanks