grecko187 respondió:
Puedes con una lnea de código que defina la línea en la que vas a escribir la información, osease. Lin = Sheets("Hoja2").Cells(1, 1).CurrentRegion.EntireRow.Count + 1 y enronces los datos que escribes son: Sheets("Hoja2").Cells(Lin, 1) = Cells(1,1)...