var objXL = WScript.CreateObject("Excel.Application");
objXL.Visible = true;
objXL.WorkBooks.Add();

xlAll = -4104; xlNone = -4142;

with(objXL) {
	Cells(1, 1).Value = 1
	Cells(2, 1).Value = 2
	Range("A1:A2").Copy
	Range("C1").PasteSpecial(xlAll, xlNone, false, true);
	CutCopyMode = false
}