Sub fill_table()
Dim arr, lr As Long, lc As Long, i As Long, j As Long
' загрузка данных в массив
With Worksheets("Раздача")
    lr = .Cells(.Rows.Count, 1).End(xlUp).Row
    arr = .Range("A17:N" & lr) ' здесь последний столбец - N (при необходимости изменить на последний столбец)
End With
' заполнение листа Расшифровка
With Worksheets("Расшифровка")
    lr = 8 ' номер первой строки для выгрузки данных на лист
    lc = 2 ' номер первого столбца (для фамилии)
    For j = LBound(arr, 1) To UBound(arr, 1)
        .Cells(lr, lc) = arr(j, 1)
        lc = lc + 1
        For i = 5 To UBound(arr, 2) Step 3 ' цикл начинается с 5 столбца & _
                    (суммы по полю Бумага на листе Раздача) с шагом 3
            .Cells(lr, lc) = arr(j, i)
            lc = lc + 1
        Next i
        lc = 2: lr = lr + 1
    Next j
End With
End Sub