data=CrossMatrix[All,{8,8,8}];

dwd=LiftingWaveletTransform[data,Automatic,1];

Column[{Graphics3D[{Orange,Specularity[White,20],Sphere[#,0.5]&/@Position[data,1]},ImageSize->250,Boxed->False,PlotRangePadding->0],Rotate[,-(π/2)],Grid[Partition[Table[Graphics3D[{Specularity[White,20],If[Positive[Extract[dwd[i][[1,2]],#]],Red,Green],Sphere[#,0.5]}&/@Position[dwd[i][[1,2]],u_/;Abs[u]>0],PlotRange->Automatic,ImageSize->180,Boxed->False,PlotRangePadding->0],{i,dwd["WaveletIndex"]}],3,3,{1,1},""]]},Alignment->Center,Spacings->0]