I don't quite understand what you mean, but have you tried the built-in Div operator, which accepts spherical coordinates?
Div[{f[r, \[Theta], \[CurlyPhi]], g[r, \[Theta], \[CurlyPhi]],
h[r, \[Theta], \[CurlyPhi]]}, {r, \[Theta], \[CurlyPhi]},
"Spherical"]
Look up Div
in the documentation.