Macro Copiar y pegar columnas

Utiliza la siguiente macro.

Instrucciones
1. Abre tu hoja de excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona ALt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Para ejecutarla presiona F5

Sub ultimas4()
ufil = ActiveCell.SpecialCells(xlLastCell).Row
ucol = ActiveCell.SpecialCells(xlLastCell).Column
If ucol > 4 Then
Set A = Columns(ucol - 3)
Set b = Columns(ucol - 2)
Set c = Columns(ucol - 1)
Set d = Columns(ucol)
Union(A, b, c, d).Select
Union(A, b, c, d).Copy
Cells(1, ucol + 1).Select
ActiveSheet.Paste
Else
Columns("A:D").Copy
Cells(1, 5).Select
ActiveSheet.Paste
End If
End Sub

saludos.dam