Добавление в конец списка определённых ячеек после нажатия на кнопку

[shapka]

И снова, Здравствуйте,
Огромная просьба посмотреть мой файл.
Я представленный выше пример применила к своей ситуации.

Проблема: все работало. Сохраняло. Но дойдя до 7 строки, данные сохранялись поверх последней строчки. Так происходит и по сегодня.

[EducatedFool]

Вот так будет работать:

Private Sub CommandButton2_Click()
    ReDim rez(1 To 1, 1 To 10)
    Dim R_count As Long
    R_count = Sheets("History").Range("A" & Sheets("History").Rows.Count).End(xlUp).Row + 1
    rez(1, 1) = Range("Date")
    rez(1, 2) = Range("Time")
    rez(1, 3) = Range("Bank")
    rez(1, 4) = Range("sender")
    rez(1, 5) = Range("Person1")
    rez(1, 6) = Range("Person2")
    rez(1, 7) = Range("Adres")
    rez(1, 8) = Range("Note1")
    rez(1, 9) = Range("Give")
    rez(1, 10) = Range("Get")
    Sheets("History").Range("A" & R_count & ":J" & R_count).Value = rez
End Sub

[shapka]

Спасибо огромное! Все-все работает!