Subdivision Surface modifier works badly
You can try to do Ctrl + R to add a loop cut, click before the sharp vertices you want, and just slide it to the left to sharp the angle
Otherwise you can select the vertices and in the Tool box on the right (with N) click on a thing with crease in the name, or I think you can do Shift + E