MULTIPLICACION EN VB EXCEL

[Lucasig]

Hola, tengo una formula que recorre las celdas y va hacia la ultima celda no vacía, luego baja una posición y pega en valores lo que copie

Sheets(HOJA).Range("J11:J18").Copy
Range("L1").Select
Do While ActiveCell <> Empty
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.PasteSpecial xlPasteValues, , SkipBlanks = True

Como hago para multiplicar *100 las celdas pegadas?

Gracias de antemano.

[Antoni]

Application.ScreenUpdating = False
Range("L" & Rows.Count).End(xlUp).Select
For Each Celda in Sheets(HOJA).Range("J11:J18")
   ActiveCell.Offset(1, 0).Select
   ActiveCell.Value = Celda.Value * 100
Next

Macro no probada por carecer de archivo para ello.

 

 

[Dr Hyde]

checa esta solucion

ejemplom.xlsm