Excel VBA - Inserir valor da célula em uma célula variável do banco de dados

[Eduardo Wister]

 Estou usando um sistema de cadastro para exames de funcionários, o cadastro esta dando certo, a busca também, mas quando preciso inserir a data que o funcionário fez o exame e salvar ele esta salvando em uma célula fixa ("K5"), e preciso que ele faça isso na linha do código que fiz a pesquisa

 

Sub ArquivarExame()
Application.ScreenUpdating = False
    Range("P18").Select
    Selection.Copy
    Sheets("Consulta").Select
    ActiveSheet.ListObjects("Tabela4").Range.AutoFilter Field:=1, Criteria1:=Sheets(1).Range("P18")
    Sheets("Painel_Cadastro").Select
    Range("S21").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Consulta").Select
    Range("k5").Select 'ERRO ESTA AQUI *********************************************************************************
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.ListObjects("Tabela4").Range.AutoFilter Field:=1
    Sheets("Painel_Cadastro").Select
    Range("S21").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("P18").Select
    Selection.ClearContents
    Application.ScreenUpdating = True
End Sub

 

VOU ALTERAR O CADASTRO 3 (Linha 7)

 

 

FAÇO A PESQUISA E COLOCO A DATA, OK

 

 

MAS ELE DA A BAIXA NA CASA FICA "K5", preciso que ele de a baixa na linha do código que eu informei

[CasaDoHardware]

Se disponibilizar a planilha fica mais fácil.

[Eduardo Wister]

Consegui arrumar, fiz um teste logico com um loop que faz o teste pelo código e da a baixa no código