======================================
Sub Macro1()
'' Macro1 Macro
Range("A6").Select
ActiveCell.FormulaR1C1 = "1"
Range("B6").Select
Selection.ClearContents
End Sub
Sub Macro2()
' Macro2 Macro
Range("B6").Select
ActiveCell.FormulaR1C1 = "0"
Range("A6").Select
Selection.ClearContents
Range("C6").Select
Selection.ClearContents
End Sub
Sub Macro3()
' Macro3 Macro
Range("C6").Select
ActiveCell.FormulaR1C1 = "-1"
Range("B6").Select
Selection.ClearContents
End Sub