santiagomf respondió:
Prueba con este código ajustándolo a tus necesidades: Sub ponerValor0(ByRef miRango As Range) Dim i As Long Dim j As Long For i = 1 To miRango.SpecialCells(xlCellTypeLastCell).Row For j = 1 To miRango.SpecialCells(xlCellTypeLastCell).Column...