파워쿼리,VBA 질문입니다

Option Explicit

' ==================== 시트 정의 ====================
Public Const WS_MAIN As String = "공구확인용"
Public Const WS_CSV As String = "CSV"

Public Sub ApplyGrid(Optional ByRef L_DR As String = "")
    '// ---------------- 기본/상태 저장 ----------------
    Dim ws As Worksheet: Set ws = Worksheets(WS_MAIN)
    Dim sht As Worksheet
    Dim prvCalc As XlCalculation
    On Error GoTo EH
    
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
        prvCalc = .Calculation
        .Calculation = xlCalculationManual
    End With
    
    '// ---------------- 실제 그릴 범위 결정 ----------------
    Dim d_RNG As Range
    Dim n_DR As String
    Dim hasSpill As Boolean: hasSpill = False
    
    On Error Resume Next
    hasSpill = ws.Range("C3").hasSpill
    On Error GoTo 0
    
    If hasSpill Then
        '// 1) 스필이 있으면 스필범위로
        Set d_RNG = ws.Range("C3").CurrentRegion
    Else
        '// 2) 스필이 없으면 예비: CSV의 eRow 기반
        Set sht = ThisWorkbook.Worksheets(WS_CSV)
        Dim eRow As Long: eRow = sht.Cells(sht.Rows.Count, "B").End(xlUp).Row + 2
        Dim cCol As Long: cCol = ws.Cells(3, ws.Columns.Count).End(xlToLeft).Column
        If eRow < 3 Then eRow = 3
        Set d_RNG = ws.Range(ws.Cells(3, 3), ws.Cells(eRow, cCol))
    End If
    
    n_DR = d_RNG.Address
    
    '// ---------------- 기존 테두리 지우기 ----------------
    Call C_PB(ws, L_DR)
    
    '// ---------------- 데이터 없으면 종료 ----------------
    If WorksheetFunction.CountA(d_RNG) = 0 Then
        L_DR = ""  '// 빈 범위이므로 초기화
        GoTo QH
    End If
    
    '// ---------------- 격자 그리기 ----------------
    Call D_GB(d_RNG)
    
    '// 현재 그린 범위를 저장
    L_DR = n_DR
    
QH:
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = prvCalc
    End With
    Exit Sub
    
EH:
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = prvCalc
    End With
    
    MsgBox "오류가 발생했습니다: " & Err.Description, vbCritical
    
End Sub

' ==================== 이전 테두리 지우기 (최적화된 버전) ====================
Private Sub C_PB(ws As Worksheet, L_Rng As String)
    On Error Resume Next
    
    If L_Rng = "" Then Exit Sub  ' 이전 범위가 없으면 종료
    
    Dim eRng As Range
    Set eRng = ws.Range(L_Rng)
    
    '// 이전 테두리 완전 제거
    With eRng.Borders
        .Item(xlEdgeLeft).LineStyle = xlNone
        .Item(xlEdgeTop).LineStyle = xlNone
        .Item(xlEdgeRight).LineStyle = xlNone
        .Item(xlEdgeBottom).LineStyle = xlNone
        .Item(xlInsideVertical).LineStyle = xlNone
        .Item(xlInsideHorizontal).LineStyle = xlNone
    End With
    
    On Error GoTo 0
End Sub

' ==================== 범위 포함 여부 확인 ====================
Private Function IS_rc(iRng As Range, oRng As Range) As Boolean
    On Error Resume Next
    IS_rc = False
    
    If iRng.Row >= oRng.Row And _
       iRng.Column >= oRng.Column And _
       (iRng.Row + iRng.Rows.Count - 1) <= (oRng.Row + oRng.Rows.Count - 1) And _
       (iRng.Column + iRng.Columns.Count - 1) <= (oRng.Column + oRng.Columns.Count - 1) Then
        IS_rc = True
    End If
    
    On Error GoTo 0
End Function

' ==================== 격자 테두리 그리기 ====================
Private Sub D_GB(tRng As Range)
    On Error Resume Next
    
    With tRng.Borders
        ' 외곽 테두리
        With .Item(xlEdgeLeft)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With .Item(xlEdgeTop)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With .Item(xlEdgeRight)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With .Item(xlEdgeBottom)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        
        ' 내부 테두리
        With .Item(xlInsideVertical)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With .Item(xlInsideHorizontal)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
    End With
    
    On Error GoTo 0
End Sub

' ==================== 전체 테두리 초기화 (필요시 사용) ====================
Public Sub cls_B()
    Dim ws As Worksheet: Set ws = Worksheets(WS_MAIN)
    
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With
    
    ' C3부터 사용된 영역 끝까지의 모든 테두리 제거
    Dim eRow As Long: eRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row
    Dim eCol As Long: eCol = ws.Cells(3, ws.Columns.Count).End(xlToLeft).Column
    
    If eRow < 3 Then eRow = 3
    If eCol < 3 Then eCol = 12  ' L열
    
    ws.Range(ws.Cells(3, 3), ws.Cells(eRow + 10, eCol)).Borders.LineStyle = xlNone
    
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
    
End Sub