Creio que o relatado ocorre por causa do trecho abaixo, onde grupo e gravado de acordo com sua linha em BD.
Não entendi o motivo da segunda linha (referente a coluna K), já que na continuação outro valor e inserido nessa posição

'Gravando o nome do Grupo no registro de relatório
Dim y As Long, ultGrup As Long
Dim vGrup As Boolean
        
vGrup = False
    
ThisWorkbook.Worksheets("BD").Activate
    
ultGrupo = Sheets("BD").Cells(Cells.Rows.Count, 2).End(xlUp).Row
    
For y = 2 To ultGrupo 'Faz o loop
                       
    If Sheets("BD").Range("B" & y).Value = ins_rel.listPublicador Then
        Sheets("BR").Range("E" & y).Value = Sheets("BD").Range("H" & y).Value
        Sheets("BR").Range("G" & y).Value = Sheets("BD").Range("K" & y).Value
        vGrup = True
    End If
    
Next

Substitua sua rotina de gravar pela abaixo e veja se atende

Sub GravRel()

'verifica se há dados duplicados

Dim i As Long 'Variável contadora
Dim ultimaLinha As Long 'variável para armazenar a última linha gravada na planilha
Dim RelDuplicado As Boolean 'Checar nome duplicado
Dim tNome As Integer, tMes As Integer, tAno As Integer
      
RelDuplicado = False

ThisWorkbook.Worksheets("BR").Activate

ultimaLinha = Sheets("BR").Cells(Cells.Rows.Count, 2).End(xlUp).Row
            
'Verifica o publicador
If ins_rel.listPublicador = "" Then
    MsgBox ("Selecione o Publicador!")
    ins_rel.listPublicador.SetFocus
    Exit Sub
End If
'Verifica o mes
If ins_rel.listMes = "" Then
    MsgBox ("Selecione o Mês!")
    ins_rel.listMes.SetFocus
    Exit Sub
Else
End If

'Verifica o Ano

    If ins_rel.listAno = "" Then
    
    MsgBox ("Selecione o Ano!")
    
    ins_rel.listAno.SetFocus
    
    Exit Sub
    
    Else
    
    End If

'Verifica se é pioneiro Auxiliar
    
    If ins_rel.chek_Pion_aux.Value = True Then
    
        Sheets("BR").Cells(linha, 11) = "Pioneiro Auxiliar"
    
    End If
    
'Verifica as horas
If ins_rel.txtHoras = "" Then
    MsgBox ("Preencha as horas trabalhadas!")
    ins_rel.txtHoras.SetFocus
    Exit Sub
Else
End If
' verifica as Revisitas
If ins_rel.txtRevisitas < ins_rel.txtEstudos Then
    MsgBox ("A qualtidade de Etudos não pode ser maior que o número de revisitias!")
    ins_rel.txtRevisitas.SetFocus
    Exit Sub
Else
End If

'Loop para varrer toda a planilha pela coluna

For i = 2 To ultimaLinha 'Faz o loop
    tNome = Sheets("BR").Range("B" & i).Value
    tMes = Sheets("BR").Range("C" & i).Value
    tAno = Sheets("BR").Range("D" & i).Value
        
'Verifica se já possui registro
If tAno = ins_rel.listAno And tMes = ins_rel.listMes And tNome = ins_rel.listPublicador Then
    MsgBox ("Esse Relatório já foi Feito!!")
    RelDuplicado = True
    Exit Sub
End If
Next
   
'Procura uma linha em Branco no Registro
'Planilha5.Select
linha = ultimaLinha + 1
    'Do Until Sheets("BR").Cells(linha, 2) = ""
    'linha = linha + 1
    'Loop
'Gravando o nome do Grupo no registro de relatório

Dim y As Long, ultGrup As Long
Dim vGrup As Boolean
        
vGrup = False
    
ThisWorkbook.Worksheets("BD").Activate
    
ultGrupo = Sheets("BD").Cells(Cells.Rows.Count, 2).End(xlUp).Row
    
For y = 2 To ultGrupo 'Faz o loop
                       
    If Sheets("BD").Range("B" & y).Value = ins_rel.listPublicador Then
        Sheets("BR").Range("E" & linha).Value = Sheets("BD").Range("H" & y).Value
        Sheets("BR").Range("G" & linha).Value = Sheets("BD").Range("K" & y).Value
        vGrup = True
    End If
    
Next
    
'Grava dados
With Sheets("BR")
    .Cells(linha, 2) = ins_rel.listPublicador
    .Cells(linha, 3) = ins_rel.listMes
    .Cells(linha, 4) = ins_rel.listAno
    .Cells(linha, 6) = ins_rel.txtPub
    .Cells(linha, 7) = ins_rel.txtVidMost
    .Cells(linha, 8) = ins_rel.txtHoras
    .Cells(linha, 9) = ins_rel.txtRevisitas
    .Cells(linha, 10) = ins_rel.txtEstudos
    .Cells(linha, 12) = Date
End With
        
MsgBox ("Relatório Gravado com Sucesso!")
    
'Limpa dados

    With ins_rel

        .listPublicador = ""
        .listMes = ""
        .listAno = ""
        .chek_Pion_aux.Value = False
        .txtPub = ""
        .txtVidMost = ""
        .txtHoras = ""
        .txtRevisitas = ""
        .txtEstudos = ""
    
    End With
        
        gravaGrup = ""

Sheet1.Select

End Sub