The layout for Manipulate
is this: Manipulate[code;code; someOutput, slider1,slider2,slider3]
So you need to put the final output inside Manipulate, not outside. Like this
Manipulate[
p2 = {1, 3, 3};
p3 = {0, 4, 6};
p1p2Vector = p2 - p1;
p1p3Vector = p3 - p1;
points = Graphics3D[{PointSize[Large], Point[{p1, p2, p3}]}];
p1p2VectorG = Graphics3D[{Red, Arrow[{p1, p1 + p1p2Vector}]}];
p1p3VectorG = Graphics3D[{Blue, Arrow[{p1, p1 + p1p3Vector}]}];
p1 = {1, 4, 7 + a};
Show[points, p1p2VectorG, p1p3VectorG]
, {a, 0, 5}]