Sub xxx()
Dim i As Long
Dim rng As Range
Set rng = Cells.SpecialCells(xlCellTypeVisible).Cells(1, 1)
Do Until i = 4 - 1
Set rng = rng.Offset(0, 1)
If rng.EntireColumn.Hidden = False Then i = i + 1
Loop
i = 0
Do Until i = 3 - 1
Set rng = rng.Offset(1)
If rng.EntireRow.Hidden = False Then i = i + 1
Loop
rng.Activate
End Sub