myFigs = Table[Plot[Sin[i x], {x, -2, 2}], {i, 6}];
    myTables = 
      Table[Grid[
        RandomInteger[20, {RandomInteger[10], RandomInteger[10]}], 
        Frame -> All], {6}];
    FinalFig = GraphicsGrid[Partition[Union[myFigs, myTables], 3]];
    Export[".../Desktop/FinalFig.pdf", FinalFig, "PDF"];