VBA to filter top ten values then paste into the related tables

Sub test()
    With Sheets("sheet2").Cells(1).CurrentRegion
        .Parent.AutoFilterMode = False
        .AutoFilter 5, , 3
        .Offset(1).Resize(, .Columns.Count - 2).Copy Sheets("sheet1").Range("c8")
        With Sheets("sheet1").Range("c8:g17")
            .Sort .Cells(1, 5), 2
        End With
        .AutoFilter
        .AutoFilter 7, , 3
        With .Offset(1)
            Union(.Columns("a:d"), .Columns("f:g")).Copy Sheets("sheet1").Range("c21")
        End With
        With Sheets("sheet1").Range("c21:h30")
            .Sort .Cells(1, 6), 2
        End With
        .AutoFilter
    End With
End Sub