휴양소 추첨 비주얼베이직 관련

안녕하세요! 오빠두에서 도움을 많이 받고 있는 엑셀초보입니다..

이번에 회사 휴양소 추첨 업무를 하고 있는데,, 엑셀 비주얼베이직 도움을 받으려고 하고 있습니다. ChatGPT를 통해서 여기까지 코드를 작성했는데, 막상 실행하면 "컴파일 오류입니다" 라고 뜨네요.... 3시간째 헤매고 있습니다... 도움을 요청드립니다.

====================

Sub ResortLottery()
'휴양소 리스트 A1:A50
'각 부서별 당첨자 인원 설정
'각 부서별 선택한 휴양소 및 사원명 입력 (부서는 C열, 사원명은 D열, 휴양소는 E열)
'각 휴양소별로 랜덤으로 당첨자 선택, 부서별로 당첨자 인원만큼 선택

Dim resorts As Variant
resorts = Range("A1:A50").Value 'A1:A50에 있는 휴양소 리스트를 변수에 저장

Dim departments As Variant
departments = Array("영업팀", "마케팅팀", "개발팀", "디자인팀", "인사팀") '각 부서를 배열에 저장

Dim winnersPerDepartment As Variant
winnersPerDepartment = Array(1, 1, 1, 1, 1) '각 부서별 당첨자 인원 설정

Dim selectedEmployees As New Collection '선택한 사원과 휴양소를 담을 컬렉션 변수
Dim lastRow As Long
lastRow = Range("C" & Rows.Count).End(xlUp).Row '마지막 행을 찾음
Dim i As Long
For i = 2 To lastRow '각 부서별로 선택한 휴양소와 사원명을 컬렉션에 추가
Dim department As String
department = Range("C" & i).Value
Dim employeeName As String
employeeName = Range("D" & i).Value
Dim resort As String
resort = Range("E" & i).Value
If department <> "" And employeeName <> "" And resort <> "" Then
selectedEmployees.Add Array(department, employeeName, resort) '선택한 휴양소, 사원명, 부서명을 배열로 묶어서 추가
End If
Next i

Dim selectedResorts As New Collection '선택된 휴양소를 담을 컬렉션 변수
For Each Item In selectedEmployees '선택된 휴양소를 컬렉션에 추가
Dim resortName As Variant '변수를 Variant로 변경
resortName = Item(2)
If Not selectedResorts.Contains(resortName) Then
selectedResorts.Add resortName
End If
Next Item

Dim departmentWinners As New Collection '당첨자를 담을 컬렉션 변수
For Each resort In selectedResorts '각 휴양소별로 랜덤으로 당첨자 선택
Dim winners As New Collection
Dim j As Long
For j = 1 To winnersPerDepartment(selectedResorts.IndexOf(resort)) '해당 휴양소의 부서별 당첨자 인원만큼 선택
Dim eligibleEmployees As New Collection '해당 휴양소에서 선택 가능한 사원들을 담을 컬렉션 변수
For Each Item In selectedEmployees '선택한 휴앙소에서 해당 휴양소와 같은 이름의 휴양소를 선택한 사원들을 선택 가능한 사원으로 추가
If Item(2) = resort Then
eligibleEmployees.Add Item
End If
Next Item

If eligibleEmployees.Count > 0 Then '선택 가능한 사원이 있을 경우 랜덤으로 당첨자 선택
Dim randomIndex As Long
randomIndex = Int(Rnd * eligibleEmployees.Count) + 1 '랜덤한 인덱스 선택
Dim winner As Variant
winner = eligibleEmployees(randomIndex)
winners.Add winner
selectedEmployees.Remove randomIndex '이미 당첨된 사원은 다음 추첨에서 제외
End If
Next j

departmentWinners.Add Array(resort, winners) '해당 휴양소의 당첨자를 컬렉션에 추가

Next resort

'결과 출력
Dim resultSheet As Worksheet
Set resultSheet = Sheets.Add(after:=Sheets(Sheets.Count)) '새로운 시트 생성

Dim rowIndex As Long
rowIndex = 1
Dim k As Long
For k = 1 To departmentWinners.Count '각 휴양소별로 결과 출력
resultSheet.Cells(rowIndex, 1).Value = departmentWinners(k)(0) & " 당첨자"
rowIndex = rowIndex + 1
Dim l As Long
For l = 1 To departmentWinners(k)(1).Count '각 부서별로 선택된 당첨자 출력
resultSheet.Cells(rowIndex, 1).Value = departmentWinners(k)(1)(l)(0) & "부서: " & departmentWinners(k)(1)(l)(1) & " (" & departmentWinners(k)(1)(l)(2) & ")"
rowIndex = rowIndex + 1
Next l
Next k

resultSheet.Columns.AutoFit '결과를 자동으로 조정하여 표시
resultSheet.Activate '새로운 시트를 활성화하여 표시
End Sub