raluex

parmijo respondió: Una buena opción es ocupar alguna variable : ULT = Sheets("Tu hoja").Range("A65536").End(xlUp).Row+1 para gravar un nuevo ragistro sería algo asi cells(Ult, 1).value= tu valor donde 1 = a la columna A y Ult = a la ultima fila utilizada +1 saludos

caranbis respondió: Servido Caballero. Sub duplicafiladeceldaactiva() Application.ScreenUpdating = False Rows(ActiveCell.Row).Select Selection.Copy ActiveCell.Offset(1, 0).Select Selection.Insert Shift:=xlDown Application.CutCopyMode = False ActiveCell.Offset(-1,...