RELLENAR CELDAS CON EL VALOR SUPERIOR DE LA FILA

MUCHAS VECES HAY QUE RELLENAR LOS CELDA CON EL VALOR DE LA FILA SUPERIOR. ESTE METODO PUEDE AYUDARTE (SACADO DE INTERNET)

Worksheets("DATOS").Activate

With Range("A2:A40") ' For blank cells, set them to equal the cell above .SpecialCells(xlCellTypeBlanks).Formula = "=R[-1]C" 'Convert the formula to a value .Value = .Value End With