Copiar columna sumandole una cantidad

Hola Sonia

A ver que tal este codigo que copia los datos incrementados por 1 de la columna [A] (empezando desde la fila 2 por si hay
encabezados) a la columna [B] .

Sub Test()
Dim rng As Range
With ActiveSheet
Set rng = .Range(.Cells(2, "A"), _
.Cells(.Rows.Count, "A").End(xlUp)).Offset(, 1)
End With
With rng
.Value = 1
.Offset(, -1).Copy
.PasteSpecial xlFormulas, xlAdd
End With
Application.CutCopyMode = False
End Sub

Saludos,
KL



"Sonia" wrote in message news:

Hola!!

Mediante una macro quiero copiar una columna en otra, esto ya lo he conseguido pero lo que ahora quiero es que los datos de la
nueva columna sea el valor de la inicial mas uno. Como puedo hacerlo??
Gracias.