Sub Acomodadora()
    Range("E1").Select
    Selection.End(xlToRight).Select
    Selection.Cut
    ActiveCell.Offset(1, -1).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Range("A1:A5").Select
    Selection.FillDown
    ActiveCell.Range("A1:B5").Select
    Selection.Cut
    Range("C1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste
End Sub