Duplicar 2 veces la misma celda de una columna para crear una nueva columna en la misma hoja

Hola expertos, me gustaría duplicar los valores de una columna para crear otra nueva en la misma hoja.Había comenzado con esta subrutina pero no consigo que cree la nueva columna.Si alguno supiera resolverlo,se lo agradecería.

sub crear_columna ()
Range("V28").Select 'Columna inicial con valores únicos.
 Do While ActiveCell.Value <> ""
    ActiveCell.Copy
    For x = 1 To 2
         Range("Z65000").End(xlUp).Offset(1, 0).Select 'Columna nueva con valores duplicados.
         ActiveCell.PasteSpecial xlPasteValues
     Next
    ActiveCell.Offset(1, 0).Select
Loop
end sub

Un saludo!