Как организовать рассчет Заработной платы работников и вывести в итог VBA

Sub Рассчет()
 
Dim CalcSheet As integer
Dim WorkName1 As String
Dim WorkName2 As String
Dim WorkName3 As String
Dim WorkName4 As String
Dim WorkName5 As String
 
Dim Salary1 As Single
Dim Salary2 As Single
Dim Salary3 As Single
Dim Salary4 As Single
Dim Salary5 As Single
 
'Присваиваю переменным значения ячеек ФИО работников
WorkName1 = Sheets("Итог").Range("A1")
WorkName2 = Sheets("Итог").Range("A2")
WorkName3 = Sheets("Итог").Range("A3")
WorkName4 = Sheets("Итог").Range("A4")
WorkName5 = Sheets("Итог").Range("A5")
 
Поиск по листам работников и подсчет их ЗП
    For CalcSheet = 1 To 31
        For i = 1 To 5
            Name = Sheets(CalcSheet).Cells(i, 1)
            Salary = Sheets(CalcSheet).Cells(i, 2)
            If Name = WorkName1 Then
                Salary1 = Salary1 + Cells(i, 2)
            Else If Name = WorkName2 Then
                Salary2 = Salary2 + Cells(i, 2)
            Else If Name = WorkName23 Then
                Salary3 = Salary3 + Cells(i, 2)
            Else If Name = WorkName4 Then
                Salary4 = Salary4 + Cells(i, 2)
            Else If Name = WorkName5 Then
                Salary5 = Salary5 + Cells(i, 2)
            End If
        Next   
    Next
    'Ну и далее Вывод результата (ЗП) на лист со списком работников...
End sub