With ActiveSheet
.Range("Y1").Copy
.Columns("A:X").SpecialCells(xlCellTypeConstants).PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
.Range("A:X").Copy Workbooks("xxx.xls").Sheets("source").Range("A1")
End With