Использование макроса VBA для копирования и вставки на другой лист с 2 строками заголовка

Question

Я учился на нескольких курсах программирования в колледже, но я новичок в Excel (это моя самая первая программа Excel). Мой начальник попросил меня создать программу Excel для отслеживания заказов.

Первый лист предназначен для ввода, где вводится вся информация для заказа, и вы ставите "х" в столбце дня, когда клиент хочет забрать заказ. После ввода "х" строка копируется на соответствующий лист дня, а также на основной лист, а затем удаляется с листа ввода. Поскольку строка копируется на другие листы, все строки сортируются по фамилии (столбец b). Все это прекрасно работает.

Проблема в том, что мне нужно иметь 2 строки заголовков для листов, на которые эта строка копируется. Первая строка содержит названия пирогов и другую соответствующую информацию о том, что этот столбец означает для заказа. Во втором ряду должна быть сумма, которая будет обновлять себя для каждого отдельного пирога. Имея только 1 строку заголовка, она работает нормально, но после добавления во вторую строку я не могу добиться превосходства в том, чтобы не сортировать мою вторую строку заголовка при заполнении листа.

Кикер, у меня это работало 2 года назад, и мой босс удалил его. Так что я знаю, что это возможно, но я просто не могу понять это в этот раз, независимо от того, сколько я занимаюсь поиском по этому вопросу. Любая помощь / идеи будут с благодарностью!

Снимок экрана:

Снимок экрана вторника (лист назначения):

Макрокод на входном листе:

Private Sub Worksheet_Change(ByVal Target As Range)


Application.EnableEvents = False
 If Target.Column = 21 Then
    If Target.Value = "x" Then
        Target.EntireRow.Copy Destination:=Sheets("Tuesday"). _
        Range("A" & Rows.Count).End(xlUp).Offset(1)
        Target.EntireRow.Copy Destination:=Sheets("Master"). _
        Range("A" & Rows.Count).End(xlUp).Offset(1)
        Target.EntireRow.Delete
    End If
 ElseIf Target.Column = 22 Then
     If Target.Value = "x" Then
        Target.EntireRow.Copy Destination:=Sheets("Wednesday"). _
        Range("A" & Rows.Count).End(xlUp).Offset(1)
        Target.EntireRow.Copy Destination:=Sheets("Master"). _
        Range("A" & Rows.Count).End(xlUp).Offset(1)
        Target.EntireRow.Delete
    End If
  ElseIf Target.Column = 23 Then
     If Target.Value = "x" Then
        Target.EntireRow.Copy Destination:=Sheets("Thursday"). _
        Range("A" & Rows.Count).End(xlUp).Offset(1)
        Target.EntireRow.Copy Destination:=Sheets("Master"). _
        Range("A" & Rows.Count).End(xlUp).Offset(1)
        Target.EntireRow.Delete
    End If
 End If
 Application.EnableEvents = True

 With Sheets("Tuesday")
.Columns("A:W").Sort Key1:=.Range("B1"), Order1:=xlAscending, Header:=xlYes
End With

With Sheets("Wednesday")
.Columns("A:W").Sort Key1:=.Range("B1"), Order1:=xlAscending, Header:=xlYes
End With

With Sheets("Thursday")
.Columns("A:W").Sort Key1:=.Range("B1"), Order1:=xlAscending, Header:=xlYes
End With

With Sheets("Master")
.Columns("A:W").Sort Key1:=.Range("B1"), Order1:=xlAscending, Header:=xlYes
End With



End Sub

Answer 1

Как сказал Скотт, не используйте A:W Попробуйте больше так:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim i As Long, sht As Variant
  sht = Array("Master", "Tuesday", "Wednesday", "Thursday")

  If Target.Column > 20 And Target.Column < 24 Then
    If Target.Value = "x" Then

      Application.EnableEvents = False

      Target.EntireRow.Copy Sheets(sht(Target.Column - 20)).Range("A" & Rows.Count).End(xlUp).Offset(1)
      Target.EntireRow.Copy Sheets(sht(0)).Range("A" & Rows.Count).End(xlUp).Offset(1)

      Application.EnableEvents = True

      For i = 0 To 4
        With Sheets(sht(i))
          .Range("A3:W" & .Cells(Rows.Count, 2).End(xlUp).Row).Sort .Cells(2, 1), 1
        End With
      Next
    End If
  End If
End Sub