Sub ExcelTurkey()
    Dim i&
    For i = 1 To Cells(Rows.Count, "A").End(3).Row
        ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Clear
        ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Add2 _
        Key:=Range("A" & i & ":L" & i), SortOn:=0, Order:=1, DataOption:=0
        With ActiveWorkbook.Worksheets("Sheet2").Sort
            .SetRange Range("A" & i & ":L" & i)
            .Header = xlGuess
            .MatchCase = False
            .Orientation = xlLeftToRight
            .SortMethod = xlPinYin
            .Apply
        End With
    Next i
    MsgBox "İşlem Tamamlandı.", vbInformation, "Www.ExcelTurkey.Com"
    i = Empty
End Sub