Macros & VBA

[mrocf]

¡ No te imaginas lo sencillo que sería todo... si explicaras las cosas completa y correctamente desde un principio. !!!

En fin: prueba con este código:

Código:

Application.ScreenUpdating = False
Do
  ActiveCell.Copy
  If ActiveCell.Offset(1, -1) <> "" Then
    ActiveSheet.Paste _
      Range(ActiveCell, ActiveCell.Offset(0, -1).End(xlDown).Offset(0, 1))
    ActiveCell.End(xlDown).Select
  End If
  ActiveCell.End(xlDown).Select
Loop Until ActiveCell.Row > 65000
Cells(1, ActiveCell.Column).Select
Application.ScreenUpdating = True

Recuerda que previo a ejecutar la macro tienes que seleccionar la primer celda de la segunda columna... como en cualquier "autofill", según tus especificaciones.

Te mando un saludo y espero que te sea útil...