Bom dia, estou com um problema na minha macro e gostaria de saber se me podiam ajudar.

Estou a fazer uma macro em um ficheiro que aceda a uma planilha de outro ficheiro e a organize de forma descendente na coluna C. O código que tenho é o seguinte:

Sub Macro2()
    Dim xl As New Application
    Dim xlw As Workbook
    Dim xls As Worksheet
    
    a = ThisWorkbook.Path & "A.csv"
    On Error GoTo bm:
    Set xlw = xl.Workbooks.Open(a)
    Set xls = xlw.Sheets(1)
    
    
'    Windows(a).Activate
    a = xls.Name
    Columns("C:C").Select
    xlw.Worksheets(a).Sort.SortFields.Clear
    xlw.Worksheets(a).Sort.SortFields.Add Key:=Range("C2"), SortOn _
        :=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With xlw.Worksheets(a).Sort
        .SetRange Range("A2:K297594")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
bm:
    xlw.Saved = True
    xlw.Close True
    xl.Quit
    Set xls = Nothing
    Set xlw = Nothing
    Set xl = Nothing
End Sub

No entanto quando ele chega à intrução

.SetRange Range("A2:K297594")

ele dá "run-time error 5" e não consigo perceber o porque.
Alguém me consegue explicar como resolver ao o porque do erro?
Obrigado