Gradient in two variables

Grad[f_, rep_: {x1, x2}] := 
      Evaluate[{D[f, x1], D[f, x2]}] /. {x1 ->  rep[[1]], 
          x2 ->  rep[[2]]}