.[E1] = "-1"
.[E1].Copy
.Cells(cr, 9).Resize(r, 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply
Application.CutCopyMode = False