Private Sub Worksheet_Change(ByVal Target As Range)
Dim FreeRow As Long 'Переменная - номер первой свободной строки
    If Not Intersect(Target, Range("C3:C5")) Is Nothing Then 'Если контролируемая ячейка находится в указанном диапазоне, то
        Application.EnableEvents = False 'Отключили отслеживание событий
        Select Case Target 'Проверяем выбранное значение
            Case Is = "Магазин" 'Если это "Магазин", то
                With Sheets("Отчет магазин") 'Применительно к листу "Отчет магазин"
                    FreeRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1 'Нашли номер первой свободной строки
                    Range(Target.Offset(0, -2), Target.Offset(0, -1)).Cut .Cells(FreeRow, 1) 'Вырезали указанный диапазон в ячейку А первой свободной строки
                    .Cells(FreeRow, 3) = Date 'Вставили дату в столбец С
                End With
            Case Is = "Склад" 'Аналогично для значения "Склад"
                With Sheets("Отчет склад")
                    FreeRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
                    Range(Target.Offset(0, -2), Target.Offset(0, -1)).Cut .Cells(FreeRow, 1)
                    .Cells(FreeRow, 3) = Date
                End With
        End Select
    End If
    Application.EnableEvents = True 'Включили отслеживание событий
End Sub