chivo99 respondió:
Prueba con esto lo que hago es guardar el valor de la ultima fila y después lo recupero Sub ID5si() Dim SigFila As Long Application.ScreenUpdating = False Range("Z1").Select UltimaFila = ActiveCell.Value Range("B5:H5").Select Selection.Copy...