' Select the cell immediately above the filtered view
Range("A1").Select
' Move the selection to the first visible filtered cell of the same column
ActiveCell.Offset(1, 0).Select
  Do Until ActiveCell.EntireRow.Hidden = False
  ActiveCell.Offset(1, 0).Select
  Loop