Aneudys Martinez respondió:
Para empezar tu intrucion son las siguiente Range("3:3").Select Selection. Cut Corta la fila 3 entera ActiveCell.Offset(-2, 0).Range("A1").Select luego le dice que se pocicione en la celda a1 Range(Selection, Selection.End(xlDown)).Select aqui le...