    ' Colocar el curso en la columna A del último renglón usado.
    ActiveCell.SpecialCells(xlLastCell).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.End(xlToLeft).Select
    ActiveCell.Offset(-1, 0).Range("A1").Select
