```
ListPlot[{data1, data2}, Joined -> True, Mesh -> All, 
 Epilog -> {Yellow, Polygon@Join[data1, Reverse@data2]}]
```
[![enter image description here][1]][1]


  [1]: https://i.sstatic.net/7SsPk.png