jazzkoba

Me puedes enviar un ejemplo para trabajar sobre el.

Prueba esto: Sub multiplicacion() For i = 1 To 12 Cells(i, "C") = Cells(i, "B") * 1 Next Columns("B:B").Select Selection.Delete Shift:=xlToLeft End Sub