Копирование с изменением цвета и сортировка

[Тандер]

Здравствуйте! Приведённый ниже код копирует с листа 1 на лист 2 данные. Лист 1 одного цвета (бэкграунд), лист 2 - другого, соответственно данные копируются с бекграудом листа 1. Как можно дополнить код, чтобы бэкграунд листа 1 либо не копировался, либо чтобы при вставке вставлялся в бэкграунд цвет определённый?

Sub copy()

    Application.ScreenUpdating = False
    
    Dim lFinalRow As Long
    With Sheets(1)
        lFinalRow = .Cells(.Rows.Count, 11).End(xlUp).Row
        .Range(.Cells(lFinalRow - 100, 11), .Cells(lFinalRow, 17)).Copy Sheets(2).[a1]
    End With
    
    Application.ScreenUpdating = True
      
End Sub

И второй вопрос, после копирования, начиная со строки a1 идут цифровые данные, например:

10 30 99 71 85 34 17
17 22 35 44 51 31 04

Каким макросом можно их отсортировать, чтобы было так:

10 30 99 71 85 34 17
4 17 22 31 35 44 51

То есть по порядку.

Код есть, но им можно только отдельно каждую строку:

Например, A1:H1

Sub s()

    Selection.Sort Key1:=Selection, Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
        DataOption1:=xlSortNormal
End Sub

А как его переделать, чтобы можно было выделить диапизон A1:H50 и сортировака производилась по каждой строке от A1:H1 до A50:H50?

Спасибо!

[roborrr]

извините за неверный ответ

[roborrr]

For i = 1 To 50
ActiveWorkbook.ActiveSheet.Sort.Sor tFields.Clear
ActiveWorkbook.ActiveSheet.Sort.Sor tFields.Add Key:=Range(Cells(i, 1), Cells(i, 9)), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.ActiveSheet.Sort
.SetRange Range(Cells(i, 1), Cells(i, 9))
.Header = xlGuess
.MatchCase = False
.Orientation = xlLeftToRight
.SortMethod = xlPinYin
.Apply
End With
Next i

[Тандер]

Спасибо!