ввод данных

[Screame]

У меня есть вот такой код

Private Type расход
    артикул As String
    Товар As String
    произв As String
    модель As String
    поставщик As String
    дата As Date
    кол As String
    End Type
    Dim person As расход
Private Sub запись_Click()
Dim НомерСтроки As Integer
НомерСтроки = Application.CountA(ActiveSheet.Columns(1)) + 1
 With person
    .артикул = art
    .дата = datatxt
    .кол = koltxt
    .модель = modellist
    .поставщик = postlist
    .продажа = prodlist
    .скидка = Znuhtxt
    .Товар = namelist.Caption
    .произв = makerlist.Caption
    .закупка = zakuplist.Caption
End With
With ActiveSheet
.Cells(НомерСтроки, 1).Value = person.артикул
.Cells(НомерСтроки, 2).Value = person.Товар
.Cells(НомерСтроки, 3).Value = person.произв
.Cells(НомерСтроки, 4).Value = person.модель
.Cells(НомерСтроки, 5).Value = person.поставщик
.Cells(НомерСтроки, 6).Value = person.дата
.Cells(НомерСтроки, 7).Value = person.кол
End Sub

С его помощью я вывожу данные на лист из формы, но вот бывают такие случаи, когда одну строку из набора данных я очищаю и нужно в нее внести новые данные. При попытке сделать это при помощи кода приведенного выше ничего не получается он продолжает вводить данные в самом конце набора данных. Можно ли как-то это исправить? Или вообще использовать другой код?

[IgorGO]

  nr = 1:  Do Until Cells(nr, 1) = "": nr = nr + 1:  Loop

в nr получите наименьший номер строки, где в первой колонке пустая ячейка.

[Screame]

К сожалению, мои познания в VBA пока что не так глубоки, поэтому я вынужден просить Вас описать все это более подробно.

[IgorGO]

Private Type расход
    артикул As String
    Товар As String
    произв As String
    модель As String
    поставщик As String
    дата As Date
    кол As String
    End Type
    Dim person As расход
Private Sub запись_Click()
Dim НомерСтроки As Integer
nr = 1:  Do Until Cells(nr, 1) = "": nr = nr + 1:  Loop
НомерСтроки = nr
 With person
...

[Screame]

Спасибо большое за помощь!