Yardım Çalışma sayfaları birleştirme

Sub Emre()
    Dim syf%, i%
    Sayfa1.Range("A2:F65536").Clear
    For i = 2 To Sheets.Count
        If Sheets(i).Name <> "çekler" Then
            sson = Sheets(i).Cells(Rows.Count, "A").End(3).Row
            anason = Sayfa1.Cells(Rows.Count, "A").End(3).Row + 1
            Sheets(i).Range("A2:F" & sson).Copy Sayfa1.Cells(anason, 1)
        End If
    Next i
    Cells.Font.Size = 8
    Columns("E:E").NumberFormat = "m/d/yyyy"
    Columns("B:E").HorizontalAlignment = xlRight
    Columns.AutoFit
    MsgBox "İşlem Tamamlandı.", vbInformation, "Www.ExcelArsivi.Com"
End Sub

    son = Cells(Rows.Count, "A").End(3).Row
    Range("A3:J" & son).Select
    ActiveWorkbook.Worksheets("TABLO").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("TABLO").Sort.SortFields.Add2 Key:=Range("F4:F" & son) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("TABLO").Sort.SortFields.Add2 Key:=Range("B4:B" & son) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("TABLO").Sort.SortFields.Add2 Key:=Range("A4:A" & son) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("TABLO").Sort
        .SetRange Range("A3:J" & son)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A3").Select