.Cells(cr, 9).Resize(r, 1) = Cells(8, 7).Resize(r, 1).Value

.[E1] = "-1"

.[E1].Copy

.Cells(cr, 9).Resize(r, 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply

Application.CutCopyMode = False