You can create a function to convert the response and call it as you
step through the survey. Use Select Case inside the function so you
can assign a given value for more than one answer. Here is a snippet
to demonstrate what I'm talking about.

.
.
.
Sheets("Tally").Select
Cells(Tallyrow, 4).Value = ConvertAnswer(Cells(Emailrow, 6).Value)
.
.
.

Public Function ConvertAnswer(s As String) As Integer
Dim i As Integer

Select Case s
Case "Very Satisfied", "Strongly Agree", "Completely Solved"
i = 5
Case "Somewhat Satisfied", ...
i = 4
Case "Neutral", ...
i = 3
Case "Somewhat Unsatisfied", ...
i = 2
Case "Very Unsatisfied", ...
i = 1
Case Else
'handle error
End Select
ConvertAnswer = i
End Function