Preciso cadastrar e buscar clientes, enviando/retornando seus dados de uma planilha para outra

Bom dia, estou precisando de uma forma de cadastrar e buscar clientes em uma planilha diferente.

Eu tenho uma planilha de ordem de serviço (vamos chamar ela de planilha original), e uma que uso como banco de dados para o cadastro de clientes.

Toda vez que entra um carro novo na oficina, criamos a partir da planilha original, uma planilha para ele com os serviços que serão feitos e as informações básicas que temos dele. Na entrega do carro, pego o resto das informações que faltam (cpf, telefone, endereco, etc).

Eu queria fazer um cadastro a partir do botão que criei, do cliente e suas informações para quando ele voltar eu já ter salvo e apenas usar o botão buscar para encontrar e puxar as informações dele. Importante comentar que eu faço a pesquisa do cliente pelo nome completo dele.

Eu já usava algo parecido, porém o banco de dados que eu usava para salvar estava na mesma pasta de trabalho que a planilha original (tinha o nome BD_CLIENTES, como vocês podem ver no código abaixo). Agora separei em outra planilha separada esse banco de dados pois estava dando problemas quando eu salvava a cópia da planilha original para cada cliente, e preciso descobrir uma forma de cadastrar e buscar esse cadastro nesse segunda planilha.

Faz uns dias que peço ajuda em fóruns e pesquiso na internet formas de fazer isso, mas não tive sucesso. Eu não sou muito expert em VBA, sei muito pouco, o suficiente para me virar em coisas simples, mas isso ultrapassou minha capacidade de lógica kkkk

A planilha original e as cópias que faço dela para cada cliente ficam salvas na área de trabalho, enquanto a do banco de dados, fica na pasta do Google Drive (C:\Users\LENOVO\Google Drive).

O código que eu usava antes era assim:

Sub cadastrar()

Dim resposta As String
resposta = MsgBox("Deseja cadastrar este cliente?", vbYesNo)

Dim ordemServico As Workbook

If resposta = vbYes Then
Application.ScreenUpdating = False
cliente = ThisWorkbook.Sheets("OS").Range("B10").Value
endereco = ThisWorkbook.Sheets("OS").Range("B11").Value
bairro = ThisWorkbook.Sheets("OS").Range("B12").Value
cpf = ThisWorkbook.Sheets("OS").Range("B13").Value
veiculo = ThisWorkbook.Sheets("OS").Range("B15").Value
placa = ThisWorkbook.Sheets("OS").Range("B16").Value
numero = ThisWorkbook.Sheets("OS").Range("F11").Value
cidade = ThisWorkbook.Sheets("OS").Range("F12").Value
telefone = ThisWorkbook.Sheets("OS").Range("F13").Value

Workbook.Sheets("BD_CLIENTES").Activate
Dim ultimaLinha As Long
ultimaLinha = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To ultimaLinha
    If Cells(i, 1).Value = cliente Then
        MsgBox "Cliente já cadastrado!"
        ThisWorkbook.Sheets("OS").Activate
        Application.ScreenUpdating = True
        Exit Sub
    End If
Next i

ultimaLinha = ultimaLinha + 1

Cells(ultimaLinha, 1).Value = cliente
Cells(ultimaLinha, 2).Value = endereco
Cells(ultimaLinha, 3).Value = bairro  
Cells(ultimaLinha, 4).Value = cpf
Cells(ultimaLinha, 5).Value = veiculo
Cells(ultimaLinha, 6).Value = placa
Cells(ultimaLinha, 7).Value = numero
Cells(ultimaLinha, 8).Value = cidade
Cells(ultimaLinha, 9).Value = telefone

ThisWorkbook.Sheets("OS").Activate
Application.ScreenUpdating = True
MsgBox "Cliente cadastrado com sucesso!"
End If

End Sub

Sub buscar()
Dim resposta As String
resposta = MsgBox("Deseja buscar este cliente?", vbYesNo)

If resposta = vbYes Then
Application.ScreenUpdating = False

cliente = ThisWorkbook.Sheets("OS").Range("B10").Value

ThisWorkbook.Sheets("BD_CLIENTES").Activate
Dim ultimaLinha As Long
ultimaLinha = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

    For i = 2 To ultimaLinha
    If Cells(i, 1).Value = cliente Then
    cliente = Cells(i, 1).Value
    endereco = Cells(i, 2).Value
    bairro = Cells(i, 3).Value
    cpf = Cells(i, 4).Value
    veiculo = Cells(i, 5).Value
    placa = Cells(i, 6).Value
    numero = Cells(i, 7).Value
    cidade = Cells(i, 8).Value
    telefone = Cells(i, 9).Value
    
ThisWorkbook.Sheets("OS").Range("B10").Value = cliente
ThisWorkbook.Sheets("OS").Range("B11").Value = endereco
ThisWorkbook.Sheets("OS").Range("B12").Value = bairro
ThisWorkbook.Sheets("OS").Range("B13").Value = cpf
ThisWorkbook.Sheets("OS").Range("B15").Value = veiculo
ThisWorkbook.Sheets("OS").Range("B16").Value = placa
ThisWorkbook.Sheets("OS").Range("F11").Value = numero
ThisWorkbook.Sheets("OS").Range("F12").Value = cidade
ThisWorkbook.Sheets("OS").Range("F13").Value = telefone
    i = i + ultimaLinha
    Else
        MsgBox "Cliente não cadastrado!"
        ThisWorkbook.Sheets("OS").Activate
        Application.ScreenUpdating = True
        Exit Sub
    End If
Next i
ThisWorkbook.Sheets("OS").Activate
Application.ScreenUpdating = True
MsgBox "Busca efetuada com sucesso!"
End If

End Sub

Se der pra reutilizar o código antigo apenas atualizando para buscar e cadastrar em uma planilha a parte ou então criar um código do zero para isto. Vou deixar as planilhas em anexo para vocês entenderem melhor como elas são. Vale salientar que se vocês abrirem o código da planilha de ordem de serviço ela estará com esse antigo código que deixei acima dentro do módulo Buttons.

ordemServico.xlsm (31,7,KB) CadastroClientes.xlsm (15,0,KB)