Убери все те Selects
и все должно работать:
MailBCC = ""
MailSubject = "Stack Ranking Result : " & Sheet3.Cells(EmployeeDetailRowNo, 2) & _
"(" & Sheet3.Cells(EmployeeDetailRowNo, 1) & ")"
Sheet4.Range("C4").Value = Sheet2.Cells(StackRowNo, 1)
Call SendingMail(MailTo, MailCC, MailBCC, Sheet4.Range("A1:I33"), MailSubject)
StackRowNo = StackRowNo + 1
Loop
End Sub
Я оставлю это здесь.Вы обязательно должны прочитать его перед дальнейшим кодированием.