Esta modificación leve despeja todo el contenido de para ser hoja pegada antes de hacer la goma de la copia
Button1_Click secundarios ()
WS dévil como hoja de trabajo, ds como hoja de trabajo
lRow dévil como de largo
Fijar WS = ThisWorkbook.Worksheets (la “fuente”)
Fijar ds = ThisWorkbook.Worksheets (“reconciliar”)
ds. Gama (ds. Células (5, 1), ds. Células (ds.UsedRange.Rows.Count, ds.UsedRange.Columns.Count)). Claro
lRow = WS. Gama (“C65536”). Extremo (xlUp). Fila
WS. Gama (“C5: C” y lRow). Copiar el ds. Gama (“A5”)
WS. Gama (“H6: H” y lRow). Copiar el ds. Gama (“C5”)
WS. Gama (“J6: J” y lRow). Copiar el ds. Gama (“E5”)
Submarino del extremo