[Pliomera]

iam_alex, решение на VBA см. в приложенном файле. Выполнение макросов - разрешить в настройках безопасности. Вкратце: в модуль рабочего листа добавить следующий код:

Код:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row = 15 And Target.Column = 3 Then
        Select Case Cells(15, 3).Value
            Case "Период1"
                Range(Cells(5, 3), Cells(9, 6)).Sort Range(Cells(5, 4), Cells(9, 4)), xlAscending
            Case "Период2"
                Range(Cells(5, 3), Cells(9, 6)).Sort Range(Cells(5, 5), Cells(9, 5)), xlAscending
            Case "Период3"
                Range(Cells(5, 3), Cells(9, 6)).Sort Range(Cells(5, 6), Cells(9, 6)), xlAscending
        End Select
        Range(Cells(5, 3), Cells(9, 3)).Copy
        Range(Cells(16, 3), Cells(20, 3)).PasteSpecial xlPasteValues
        Range(Cells(5, 3), Cells(9, 6)).Sort Range(Cells(5, 3), Cells(9, 3)), xlAscending
        Target.Activate
    End If
End Sub