{a, b, c,
d} = {{-110.65212795831836`,
44.378706059881495`}, {-110.65212795831836`,
44.70928997027006`}, {-110.18987204168164`,
44.378706059881495`}, {-110.18987204168164`, 44.70928997027006`}}
GeoGraphics[{GeoStyling["ContourMap"], Rectangle[a, c]}]