What does second visible row mean?
Is the first visible row the headers and the second the first data row you can
see?
Or is it the second data row you can see?
If it's the first data row you can see:
Option Explicit
Sub testme()
Dim myRng As Range
Dim myArea As Range
With ActiveSheet.AutoFilter.Range
If .Columns(1).Cells _
.SpecialCells(xlCellTypeVisible).Cells.Count < 2 Then
MsgBox "not enough visible cells"
Exit Sub
Else
Set myRng = .Resize(.Rows.Count - 1, 1).Offset(1, 0) _
.Cells.SpecialCells(xlCellTypeVisible)
myRng.Cells(1).Select
End If
End With
End Sub
If it's the second data row you can see:
Option Explicit
Sub testme()
Dim myRng As Range
Dim myArea As Range
With ActiveSheet.AutoFilter.Range
If .Columns(1).Cells _
.SpecialCells(xlCellTypeVisible).Cells.Count < 3 Then
MsgBox "not enough visible cells"
Exit Sub
Else
Set myRng = .Resize(.Rows.Count - 1, 1).Offset(1, 0) _
.Cells.SpecialCells(xlCellTypeVisible)
If myRng.Areas(1).Rows.Count > 1 Then
myRng.Offset(1, 0).Cells(1).Select
Else
myRng.Areas(2).Cells(1).Select
End If
End If
End With
End Sub
I'm not sure what you're doing, so I just selected that cell.