Não estou com o Excel 2013 no momento, mas você experimentou gravar uma macro que faça isso no Excel 2013? Pode ser que o código seja diferente, pois algumas coisas do modelo de objeto de tabelas dinâmicas mudaram no Excel 2013.
Se o que eu disse for verdade, utilize um código como:
Sub fnc()
If Val(Application.Version) = 15 Then 'Excel 2013
'Código que funciona no Excel 2013
Else
'Código que funciona no Excel 2010 ou inferior
ActiveSheet.PivotTables("Tabela4").PivotFields("Falta").Function = xlSum
End If
End Sub
Felipe Costa Gualberto - http://www.ambienteoffice.com.br