Макрос Excel

Здравствуйте. У меня не работает макрос Выпадающий список с мультивыбором с накоплением в той же ячейке. Сколько будет стоит добавление этого макроса или оптимизация того которого я нашел в интернете ?

Сам макрос:

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next

If Not Intersect(Target, Range("C2:C5")) Is Nothing And Target.Cells.Count = 1 Then

Application.EnableEvents = False

newVal = Target

Application.Undo

oldval = Target

If Len(oldval) newVal Then

Target = Target & "," & newVal

Else

Target = newVal

End If

If Len(newVal) = 0 Then Target.ClearContents

Application.EnableEvents = True

End If

End Sub