Постановка значения в последнюю незаполненную строку

[daripana]

Добрый вечер,

Есть макрос на поиск штрих-кода по колонке A и подстановка значения в колонку B:

Код Выделить Развернуть

Sub ПоискИПодстановка()
Dim FD, firstAddress
FD = InputBox("Введите Штрих-Код", "Мой Поиск")
If FD = "" Then Exit Sub ' отмена - отказ от поиска
Dim c As Range: Set c = Range("A:A").Find(FD) ' поиск
' если ничего не нашли - выход из макроса
If c Is Nothing Then MsgBox "Искомые данные не найдены", vbExclamation: Exit Sub
firstAddress = c.Address
c.Select
Dim x As Integer
x = Str(InputBox("Введите Количество"))
Range("B" & ActiveCell.Row).Value = x

End Sub
Необходимо добавить функцию подстановки введенного штрих-кода, если его нет в колонке, в последнюю незаполненную строку и далее по аналогии в форме подставить количество

Слабо разбираюсь в VBA, надеюсь на вашу помощь
Может есть мысли как улучшить макрос.

Спасибо

[kuklp]

Код Выделить Развернуть

Sub ПоискИПодстановка()
    Dim FD, x&, c As Range
    FD = InputBox("Введите Штрих-Код", "Мой Поиск")
    If FD = "" Then Exit Sub    ' отмена - отказ от поиска
    Set c = Range("A:A").Find(FD)    ' поиск
    ' если ничего не нашли добавляем
    If c Is Nothing Then
        MsgBox "Искомые данные не найдены", vbExclamation
        Set c = Cells(Rows.Count, 1).End(xlUp)(2)
        c.Value = FD
    End If
    c.Select
    x = Str(InputBox("Введите Количество"))
    c(1, 2).Value = x
End Sub

[daripana]

KuklP,

огромное спасибо.
именно то, что нужно было!