Just add the line

ActiveSheet.Hyperlinks.Add Anchor:=ActiveCell, Address:= "mailto:" & activecell.value, TextToDisplay:=activecell.value
At the end of your code you just provided and that should hopefully work