Excel Código VBA para deslocar célula filtrada para a direita

[Luiz Mauricio de Almeida]

Prezados,

Boa tarde.

 

Não sei se este é o tópico correto para a minha dúvida, mas gostaria de saber o seguinte:

 

Como faço pra deslocar uma célula para a direita que contém um filtro?

 

Parte do meu código está assim:

 

    ActiveSheet.Range("$A$1:$Microsoft862").AutoFilter Field:=4, Criteria1:="K156"
    
    Range("D1").Select
    
    Dim CONTADOR1 As Long
    For CONTADOR1 = 1 To 439000
    
    ActiveCell.Offset(1, 0).Select
    If Not ActiveCell.Rows.EntireRow.Hidden Then Exit For
    Next
    
    ActiveCell.Offset(0, 3).Select

 

Eu quero deslocar a 3 célula para a direita.

 

Não sei se tem como fazer isso.

 

Desde já, agradeço.

[Muca Costa]

Tente adaptar:

Toda vez que entrar na coluna D, desloca-se para célula à direita

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim col As Integer
    col = ActiveCell.Column
    If col = 4 Then
        ActiveCell.Offset(0, 1).Range("A1").Select
    End If
End Sub