Доброго времени суток Гуру Excel!!! Прошу Вашей помощи в решении задачки: Необходимо значения ячеек с "Лист1" перенести данные на лист "База" после введения значения в ячейку Е3 (введение заканчивается нажатием клавиши ENTER) в такой последовательности A1 E3 F1 G1 B4, и при каждом последующем вводе не заменять а продолжать добавлять в "База"
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E3")) Is Nothing And Target.Count = 1 Then
arr = Array(Range("A1"), Range("E3"), CDate(Range("F1")), Range("G1"), Range("B4"))
With Sheets("База")
lr = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(lr, 1).Resize(1, 5) = arr
End With
End If
End Sub