I have been utilizing some of the other questions on here to try to piece together my code for this particular function. It has resulted in this:
Private Sub