Комбинированная база данных

Private Sub cbPasport_Click()
    Dim nr As Integer
    Dim rngTable As Range, rngName As Range
    Dim tmpFirma As String
    Dim tmptelefonFirma As String
    Dim tmpOffset As Integer
 
    Set rngTable = Range("ТаблПаспорта[#all]")
    Set rngName = Range("Названия[#all]")
    flag = 0
    For i = 2 To rngName.Rows.Count
        If rngName.Cells(i, 1) = cbFirma.Value Then flag = 1
    Next i
    If flag = 0 Then rngName.Cells(rngName.Rows.Count, 1).Offset(1).Value = cbFirma.Value
    
    nr = GetRowNumber(cbFirma.Value, tbTelefonFirma.Value)
    If nr = -1 Then
        nr = GetFreeNumber
    End If
    If nr = -1 Then
        nr = rngTable.Rows.Count
        tmpOffset = 1
    End If
 
    rngTable.Cells(nr, 1).Offset(tmpOffset, 0).Value = cbFirma.Text
    rngTable.Cells(nr, 2).Offset(tmpOffset, 0).Value = tbTelefonFirma.Text
 
    tmpFirma = cbFirma.Text
    tmptelefonFirma = tbTelefonFirma.Text
    tmpemailfirma = cbEmailFirma.Text
 
    lblNenaiden.Visible = False
    FillComboBox
    cbFirma.Value = tmpFirma
    tbTelefonFirma.Text = tmptelefonFirma
    cbEmailFirma.Value = tmpemailfirma
 
    MsgBox "Паспорт добавлен!"
End Sub