Como assim, ao clicar move uma coluna à direita? Ao clicar onde? O problema não está bem explicado.

Eu tb nao entendi

Ficou confuso, tem de detalhar melhor.

Quanto a mover colunas, a rotina abaixo Recorta e Move a coluna selecionada para a ultima coluna vazia, mas vale ressaltar que se selecionar uma celula a coluna referente a seleção será movida, o ideal seria definir qual coluna será movida e fazer um Case ou um If para verificar se é a coluna que se quer mover.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim sColAtiva, sColDir As Long
    
    sColAtiva = ActiveCell.Column
    
    sColDir = Columns.End(xlToRight).Column + 1
    
    Columns(sColAtiva).Cut
    Columns(sColDir).Insert shift:=xlToRigh

End Sub

[]s