Sub find_beer_bottle_003()
Dim rng_beer As Range, main_beer As Range, objTable As ListObject
Dim InsertRow As Range

Set rng_beer = Worksheets("Прайс").Cells.Find("пиво баночное ""АСАХИ SUPER DRY"" ящик 350мл*") ' название поменять на нужное
With Worksheets("Заказ")
    Set main_beer = .Cells.Find("пиво баночное ""АСАХИ SUPER DRY"" ящик 350мл*") ' то же
    Set objTable = .ListObjects("Реестр_tb")
End With
If Not rng_beer Is Nothing Then
    If main_beer Is Nothing Then
        objTable.ListRows.Add
        With Worksheets("Заказ")
            Set InsertRow = .Cells(2, 1).End(xlDown).Offset(1, 0)
            Debug.Print InsertRow.Address
        End With
        With Worksheets("Прайс")
            .Range(.Cells(rng_beer.Row, 1), .Cells(rng_beer.Row, 3)).Copy InsertRow
            InsertRow.Offset(0, 3) = 1
        End With
    Else
        main_beer.Offset(0, 2) = main_beer.Offset(0, 2) + 1
    End If
Else
    MsgBox "Не удалось найти продукт по наименованию на листе Прайс!!!"
End If
End Sub
Sub find_beer_bottle_004()
Dim rng_beer As Range, main_beer As Range, objTable As ListObject
Dim InsertRow As Range

Set rng_beer = Worksheets("Прайс").Cells.Find("пиво бутылочное ""АСАХИ SUPER DRY"" ящик 633мл*") ' название поменять на нужное
With Worksheets("Заказ")
    Set main_beer = .Cells.Find("пиво бутылочное ""АСАХИ SUPER DRY"" ящик 633мл*") ' то же
    Set objTable = .ListObjects("Реестр_tb")
End With
If Not rng_beer Is Nothing Then
    If main_beer Is Nothing Then
        objTable.ListRows.Add
        With Worksheets("Заказ")
            Set InsertRow = .Cells(2, 1).End(xlDown).Offset(1, 0)
            Debug.Print InsertRow.Address
        End With
        With Worksheets("Прайс")
            .Range(.Cells(rng_beer.Row, 1), .Cells(rng_beer.Row, 3)).Copy InsertRow
            InsertRow.Offset(0, 3) = 1
        End With
    Else
        main_beer.Offset(0, 2) = main_beer.Offset(0, 2) + 1
    End If
Else
    MsgBox "Не удалось найти продукт по наименованию на листе Прайс!!!"
End If
End Sub