tommy = Sin[x Cos[y]]

dtommy = D[tommy,y]

jimmy = Table[x^2,{x,1,10,1}]

pete =dtommy/.y-> jimmy

Plot[pete,{x,0,10}]