Deze lichte wijziging ontruimt alle inhoud van om gekleefd blad te zijn alvorens het exemplaardeeg te doen
Sub Button1_Click ()
Schemerige ws als Aantekenvel, ds als Aantekenvel
Schemerige lRow zoals lang
Vastgesteld ws = ThisWorkbook.Worksheets („Bron“)
Reeks ds = ThisWorkbook.Worksheets („verzoen“)
ds. Waaier (ds. Cellen (5, 1), ds. Cellen (ds.UsedRange.Rows.Count, ds.UsedRange.Columns.Count)). Ontruim
lRow = ws. Waaier („C65536“). Eind (xlUp). Rij
ws. Waaier („C5: C“ & lRow). Exemplaar ds. Waaier („A5“)
ws. Waaier („H6: H“ & lRow). Exemplaar ds. Waaier („C5“)
ws. Waaier („J6: J“ & lRow). Exemplaar ds. Waaier („E5“)
Sub van het eind