Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Columns(6)) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target.Value > 0 Then
Application.EnableEvents = False
With Range("A1")
hold = .Value
.Value = -1
.Copy
Target.PasteSpecial Paste:=xlValues, Operation:=xlMultiply
.Value = hold
End With
With Application
.CutCopyMode = False
.EnableEvents = True
End With
End If
End Sub