Detectar a coluna da célula selecionada

[ggrossi 0]

Bom dia!

Preciso detectar qual é a coluna da célula ativa.
Se a coluna for A, vou colar a informação da célula selecionada em G30.
Se a coluna da célula selecionada for B, vou colar em G31.
Se for a coluna C irei colar em G32.

Como traduzir isso em código vba?

Obrigado! Abs

[Alyson Ronnan Martins 0]

Public Sub cmdLocalizarColuna()
Linha = ActiveCell.Column + 29 'Linha atual
Range("G" & Linha).Value = "Seu texto"
End Sub

Olha se funciona.