dann hast du den code falsch eingefügt 
- commandbutton einfügen
- entwursmodus anschalten
- rechts klick auf den button -> code anzeigen
dann sollte das so aussehen:
Private Sub CommandButton1_Click()
End Sub
- dort den code _ohne _ "sub test" und "end sub" dazwischen einfügen
- toolbox und entwurfsmodus ausschalten
- button klicken 
code sieht dann so aus:
Private Sub CommandButton1_Click()
Dim MinusZeichen As Integer
Dim AktuellerWert As String
Range("e10").Select
Do Until ActiveCell.Value = "" 'schleife bis zelle leer ist
'zelleninhalt der variabel zuweisen
AktuellerWert = ActiveCell.Value
'pos des zeichen suchen
MinusZeichen = InStr(1, AktuellerWert, "-")
'zelleninhalt = - und position des zeichen -1
If MinusZeichen > 1 Then ActiveCell.Value = "-" & Left(AktuellerWert, MinusZeichen - 1)
Selection.Offset(1, 0).Select '1zeile runter
Loop
End Sub
/edit:
noch eine kleine validierung eingebaut, das das "-" zeichen mindestens
an 2. stelle muss. sonst hast du nach einem 2. start des makros nur
"-" zeichen in den zellen stehen :p