Имеется макрос
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Or Target.Address = "$B$2" Then
r_ = Sheets("Архив").Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
Sheets("Архив").Range("A" & r_) = Date
Sheets("Архив").Range("b" & r_) = Worksheets(1).Range("A2").Value
Sheets("Архив").Range("c" & r_) = Worksheets(1).Range("B2").Value
Sheets("Архив").Range("d" & r_) = Worksheets(1).Range("C2").Value
End If
End Sub
Данный макрос вставляет новое значение на следующую после последней строки (независимо имеются ли в следующей строке значения ли нет). А можно ли изменить макрос, чтобы вставлять значение в следующую строку в зависимости от того имеется ли значение в последней строке или, например, по относительной ссылке на ячейку, или, например, в зависимости от количества заполненных строк. Другими словами, каждое значение вставлялось не просто на одну ниже, а только в следующую строку пустую.
