VBA - Check if next visible cell is blank

[ElderWand]

How could i use something like

ActiveCell.Offset(1, 0).Value = ""

to check if the next visible cell (not next cell down) while using autofilter is blank?

    ActiveSheet.Range("$K$2:$DF$199").AutoFilter Field:=61, Criteria1:="<>"
    
    If ActiveCell.Offset(1, 0).Value = "" Then
    Else
    Application.GoTo reference:="Ravenclaw"
    Call TomRiddle
    End If

 

[footoo]

Dim rng As Range, cel As Range
ActiveSheet.Range("$K$2:$DF$199").AutoFilter Field:=61, Criteria1:="<>"
On Error Resume Next
Set rng = Range(ActiveCell, Cells(Rows.Count, ActiveCell.Column).End(xlUp)).SpecialCells(xlCellTypeVisible)
On Error GoTo 0
If Not rng Is Nothing Then
    For Each cel In rng
        Application.Goto reference:="Ravenclaw"
        Call TomRiddle
    Next
End If

 

[footoo]

Or in case cells contain "" as the result of formulas :

Dim rng As Range, cel As Range
ActiveSheet.Range("$K$2:$DF$199").AutoFilter Field:=61, Criteria1:="<>"
On Error Resume Next
Set rng = Range(ActiveCell, Cells(Rows.Count, ActiveCell.Column).End(xlUp)).SpecialCells(xlCellTypeVisible)
On Error GoTo 0
If Not rng Is Nothing Then
    For Each cel In rng
        If cel <> "" Then
            Application.Goto reference:="Ravenclaw"
            Call TomRiddle
        End If
    Next
End If

 

[ElderWand]

This worked great when there were only blanks but failed to work as expected when there were nonblanks (most likely from my vague question). It did point me in the right direction though. Thanks!

 

[ElderWand]

ActiveSheet.Range("$K$2:$DF$608").AutoFilter Field:=61, Criteria1:="<>"
    
On Error GoTo Apparate3
For Each cell In Range("BS3:BS608").SpecialCells(xlCellTypeVisible)
Next cell


    Application.Goto reference:="Ravenclaw"
    Call TomRiddle


Apparate3:
Resume QWER
QWER: