Soporte CellTech

Tengo el siguiente codigo el problema es que quiero un ciclo para que vaya pegando en una fila abajo cada que ingrese uno nuevo podrianayudarme Sub guardar() Worksheets("COMANDA"). Range("B1"). Copy Worksheets("datos"). Range("A2"). PasteSpecial...