Copiar, Colar Etc ...

Cells(i, "A").Value = i - 8

Cells(i, "A").Value = i - 7

Sub teste()
    With worsheets("Candidatos") ' <- Nome da guia
        .Range("A8:E1000").ClearContents ' Intervalo que deseja limpar
      '.Range("OUtroIntervalo").ClearContents
    End With
End Sub

Option Explicit
Essa eu não entendi, mas veja abaixo.
Sub Filtrar()
Dim lRow As Long
Dim Rng1 As Range
Dim Rng2 As Range
Dim Rng3 As Range

Set Rng1 = Sheets("1ª VEZ").Range("A7:D1000")
Set Rng2 = Sheets("2ª VEZ").Range("A7:D1000")
Set Rng3 = Sheets("PRELIMINAR").Range("A7:D1000")

Rng1.ClearContents
Rng2.ClearContents
Rng3.ClearContents

    Application.ScreenUpdating = False
    With Folha1
        .AutoFilterMode = False
        lRow = .Range("A" & Rows.Count).End(xlUp).Row
        .Range("A7:E" & lRow).AutoFilter Field:=5, Criteria1:="1"
        .Range("B8:D" & lRow).Copy Destination:=Folha2.Range("B" & Rows.Count).End(xlUp).Offset(1)
        .Range("A7").AutoFilter
    End With
    With Folha1
        .AutoFilterMode = False
        lRow = .Range("A" & Rows.Count).End(xlUp).Row
        .Range("A7:E" & lRow).AutoFilter Field:=5, Criteria1:="2"
        .Range("B8:D" & lRow).Copy Destination:=Folha3.Range("B" & Rows.Count).End(xlUp).Offset(1)
        .Range("A1").AutoFilter
    End With
    With Folha1
        .AutoFilterMode = False
        lRow = .Range("A" & Rows.Count).End(xlUp).Row
        .Range("A7:E" & lRow).AutoFilter Field:=5, Criteria1:="3"
        .Range("B8:D" & lRow).Copy Destination:=Folha4.Range("B" & Rows.Count).End(xlUp).Offset(1)
        .Range("A1").AutoFilter
    End With
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

Sub ClassificarGuias()
    Dim myRng As Range
    Dim wks As Worksheet
    For Each wks In ActiveWorkbook.Worksheets
        Select Case (wks.Name)
        Case "Candidatos"
        Case Else
            With wks
                Set myRng = .Range("B6:D" & .Cells(.Rows.Count, "B").End(xlUp).Row)
            End With
            With myRng
            'Para decrescente use -->  =xlDescending
                .Cells.Sort Key1:=.Columns(2), Order1:=xlAscending, _
                Header:=xlYes
            End With
        End Select
    Next wks
End Sub

Sub Copiar
'....Seu código principal Aqui
Call ClassificarGuias '<-Veja
End Sub