José Saúl Méndez Alonso respondió:
Te dejo este código a ver si te sirve Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If UCase(Sh.Name) <> "Cambios" Then Sheets("Cambios").Activate Range("A1").Select Selection.End(xlDown).Select ActiveCell.Offset(1,...