записывать переменные, в зависимости от выбора ячейки в диапазоне

[DMITRIY_78]

Ребята доброго всем суток! подсобите в решении такого вопроса, в работе макроса требуется,
записывать переменные p или q , которая в зависимости от выбора ячейки в диапазоне будет прописаны в одну stb. пример:

Public Function список(ByVal Target As Range)
Set sh = ThisWorkbook.Worksheets("db")
Set p = sh.Range("Изделие1")
Set q = sh.Range("Бренд1")
    If Target.Cells.Count > 1 Then Exit Function
    If IsEmpty(Target) Then Exit Function
    If Not Intersect(Target, Range("G3:G1000")) Is Nothing Then ‘в зависимости от выбора ячейки в диапазоне = p
    If Not Intersect(Target, Range("H3:H1000")) Is Nothing Then ‘в зависимости от выбора ячейки в диапазоне = q    
‘переменная взята произвольно stb в переменную записывать переменные p или q, в зависимости от выбора ячейки в диапазоне
    If WorksheetFunction.CountIf(stb, Target) = 0 Then
    r = MsgBox("Вы пытаетесь добавить: " & Target, vbInformation + vbYesNo, "Информация")
    If r = vbYes Then stb.Cells(stb.Rows.Count + 1) = Target
End If
 End If
End  Function

Заранее всем благодарен!

[DMITRIY_78]

наверное все было просто, получилось так

    If Not Intersect(Target, Range("G3:G1000")) Is Nothing Then Set stb = p
     If Not Intersect(Target, Range("H3:H1000")) Is Nothing Then Set stb = q

[DMITRIY_78]

правда говоря не совсем так , если я нахожусь на самом листе то все работает но ка только этот лист активируется идет ошибка "object reguired" на строке

If WorksheetFunction.CountIf(stb, Target) = 0 Then

вопрос был решен вот такой строкой

If IsEmpty(stb) Then Exit Function

если кому потребуется , полный код:

Public Function список(ByVal Target As Range)
Set sh = ThisWorkbook.Worksheets("db")
Set p = sh.Range("Изделие1")
Set q = sh.Range("Бренд1")
    If Target.Cells.Count > 1 Then Exit Function
    If IsEmpty(Target) Then Exit Function 'окончание работы функции при удалении из ячейки
    If Not Intersect(Target, Range("G3:G1000")) Is Nothing Then Set stb = p
    If Not Intersect(Target, Range("H3:H1000")) Is Nothing Then Set stb = q
    If IsEmpty(stb) Then Exit Function
    If WorksheetFunction.CountIf(stb, Target) = 0 Then
    r = MsgBox("Вы пытаетесь добавить: " & Target, vbInformation + vbYesNo, "Информация")
    If r = vbYes Then stb.Cells(stb.Rows.Count + 1) = Target
End If
End Function