You need to enable red zone Add-in to run it though VBA...
Edit - Also - After adding it, record a macro through VBA to confirm if VBA statement is allright as when I record, it gives following statement which means that Input Range which A1:A8 is missing in your statement.
Application.Run "ATPVBAEN.XLAM!Descr", ActiveSheet.Range("$A$1:$A$8"), "" _
, "C", False, True, 1, 1, 95