Utilizzo codice VBA su Excel

[Fijix]

Salve a tutti utilizzo Office 2007 e vorrei sapere come utlizzare il seguente codice:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Text = "" Then
Exit Sub
End If If
Target.Value > 1 Then
Exit Sub
End If
If Target.Style = "Percent" Then
Dim forma As Shape
For Each forma In Target.Worksheet.Shapes
If forma.Name = Target.Address Then
forma.Delete
Exit For
End If
Next Set forma = Target.Worksheet.Shapes.AddShape(msoShapeRectangle, Target.Left, Target.Top, Target.Width * Target.Value, Target.Height)
forma.Name = Target.Address
With forma
.Line.Visible = False
.Fill.Transparency = 0.5
.Fill.ForeColor.RGB = RGB((Int(255 * Target.Value)), 255 - (Int(255 * Target.Value)), 0)
End With
End If
End Sub

Che so essere utilizzato per visualizzare un Riempimento Percentuale delle Celle.
Sono totalmente estraneo alla procedura di inserimento in un foglio excel e alla relativa attivazione.
Potreste aiutarmi illustrandomi passo passo come fare?

Insieme alla spiegazione si accettano file gia pronti all'uso qualora la sola spiegazione sia troppo difficile