Guru do Excel e Power BI

Pessoal, sei que minha pergunta é muito idiota, mas vamos lá.

Tenho o seguinte cabeçalho
Nome Valor Situacao
Preciso de uma linha de comando que faça uma coisa.
- Em um filtro no cabeçalho, no campo situação (independe qual o resultado do filtro) a macro deixe a primeira célula visível ativa (Selecionada)

Estou usando a Macro, mas não estou conseguindo identificar o erro:
Dim Inter, Cel
Inter = 1
For Each Cel In Range("C3:C7").SpecialCells(xlCellTypeVisible).Cells
If Inter = 1 Then
Inter = Inter + 1
Next
End Sub

Boa noite!!

Use o comando Select Att

Perfeito, funcionou!!

Grato