GabrielTeixeira16

Estou com dúvidas sobre como criar uma macro para que copie a coluna que eu selecionei e cole todos os dados incluindo imagens para a coluna seguinte e caso a coluna seguinte já tenha dados, que empurre os dados atuais para a próxima coluna vazia.
 
Exemplo:
 
A   |    B    |    C   |   D   |   E   |
1   |    2    |    3    |   4    |   5
 
Após clicar selecionar e copiar a coluna A e clicar no botão da macro para colar na coluna seguinte, o resultado esperado é esse:
 
A    |   B   |    C   |   D   |    E   |    F |
1        1         2       3         4        5
 
Em anexo deixo o antes e depois do resultado esperado. Abaixo a macro que estou utilizando que no momento só está colando os dados da coluna selecionada para um intervalo fixo que no caso é a coluna C.
 
Sub Copiar_Coluna()
    Dim iLast As Long
    With Sheets("Planilha1")
        lLast = .Cells(1, .Columns.Count).End(xlToLeft).Column + 1
        Selection.Copy Range("C:C")
        Application.CutCopyMode = False
    End With
End Sub