El código tiene dos errores
En lugar de
IE.document.getElementsByClassName("btn-primary")(0).click
deber ser
IE.document.getElementsByClassName("btn-primary")(0).Click
Nótese el uso de mayúscula inicial en
Click
.
y en lugar de
Application.Wait (Now + TimeValue("0:00:1000"))
deber ser
Application.Wait (Now + TimeValue("0:00:10"))
Por cierto, lo probé en Excel 2016.