Ohh... and the error I get is Object not defined in this row

Cells(GemRowloc, GemColloc).Value = Gemname.Value

both GemRowloc and GemColloc are empty, so the code can't reconcile it....