VBA 자동 색 채우기 문의 합니다.

Sub 색채우기매크로2()

    Dim ws As Worksheet, iRow As Long
    
    '// 시트 선택
    On Error Resume Next
    Set ws = ThisWorkbook.Sheets(InputBox("시트 이름을 입력하세요:", , Worksheets(1).Name))
    On Error GoTo 0
    If ws Is Nothing Then MsgBox "시트를 찾을 수 없습니다.": Exit Sub
    
    '// 첫줄 행번호 지정 및 색상 지정
    iRow = 12
    ws.Range("D" & iRow & ",F" & iRow).Interior.Color = vbYellow
    ws.Range("E" & iRow & ",G" & iRow).Interior.Color = RGB(255, 255, 255)
    ws.Range("D" & iRow & ",F" & iRow).Interior.Pattern = xlSolid
    ws.Range("E" & iRow & ",G" & iRow).Interior.Pattern = xlNone
    
    '// 다음줄 "C"열이 공란이 아니면 계속 실행, 공란이 나오면 중단됨
    Do While Not IsEmpty(ws.Cells(iRow + 1, "C"))
        iRow = iRow + 1
        If ws.Cells(iRow, "C") = ws.Cells(iRow - 1, "C") Then '// C열값이 이전행과 같으면 같은 색
            ws.Range("D" & iRow & ",F" & iRow).Interior.Color = ws.Cells(iRow - 1, "D").Interior.Color
            ws.Range("E" & iRow & ",G" & iRow).Interior.Color = ws.Cells(iRow - 1, "E").Interior.Color
            ws.Range("D" & iRow & ",F" & iRow).Interior.Pattern = ws.Cells(iRow - 1, "D").Interior.Pattern
            ws.Range("E" & iRow & ",G" & iRow).Interior.Pattern = ws.Cells(iRow - 1, "E").Interior.Pattern
        Else                                                  '// 다르면 옆 셀과 교환
            ws.Range("D" & iRow & ",F" & iRow).Interior.Color = ws.Cells(iRow - 1, "E").Interior.Color
            ws.Range("E" & iRow & ",G" & iRow).Interior.Color = ws.Cells(iRow - 1, "D").Interior.Color
            ws.Range("D" & iRow & ",F" & iRow).Interior.Pattern = ws.Cells(iRow - 1, "E").Interior.Pattern
            ws.Range("E" & iRow & ",G" & iRow).Interior.Pattern = ws.Cells(iRow - 1, "D").Interior.Pattern
        End If
    Loop

    Set ws = Nothing
End Sub