For Each c In Selection
If Rows(c.Row).Hidden = False Then
If iCt = 0 Then
iCt = 1
Else
c.Offset(0, 1).Select
Exit For
End If
End If
Next c

Add this after what you have. Using iCt avoids the header row.

Hth,
Merjet