Need to sort by matching columns

Try this code

Sub Macro7()

LCA = Range("A65536").End(xlUp).Row
LCC = Range("C65536").End(xlUp).Row

    Range("E1").FormulaR1C1 = "Matched QTY"
    
    Range("A2:D" & LCA).Select
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A2:A" & LCA) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A1:D" & LCA)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    Range("E2:E" & LCC).FormulaR1C1 = "=IF(ISNA(MATCH(RC[-2],R2C1:R" & LCA - 1 & "C1,0)),""Not Found"",OFFSET(R1C[-4],MATCH(RC[-2],R2C1:R" & LCA - 1 & "C1,0),1))"
    Range("F2:F" & LCC).FormulaR1C1 = "=IF(RC[-1]=RC[-2],""Ok"",""Error"")"
    
        Range("A1:F" & LCC).Select

    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("F2:F" & LCC) _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A2:A" & LCC) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A1:F" & LCC)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    Range("A!").Select
End Sub