Animate[ParametricPlot3D[{{2 Cos[t] Sin[s], 2 Sin[t] Sin[s], 
    2 Cos[s]}, {(4 + 0.5*Cos[t]) Cos[s], (4 + 0.5 Cos[s]) Sin[s], 
    0}, {0.5 Cos[t] Sin[s] + 3 Cos[a], 0.5 Sin[t] Sin[s] + 2 Sin[a], 
    0.5 Cos[s] + 3 Cos[a]}}, {t, 0, 2 Pi}, {s, 0, 2 Pi}, 
  Boxed -> False, Axes -> False, Mesh -> 0, 
  PlotRange -> {{-4, 4}, {-4, 4}, {-4, 4}}, 
  PlotStyle -> Directive[Specularity[White, 20], Orange]], {a, 0, 
  2 Pi}]