Boa tarde nagibsalha,

Primeiro, não use azul/amarelo/vermelho/laranja/roxo... na internet. Fica bem ruim de ler o que foi escrito.
De preferência para a formatação padrão do fórum.

Agora sobre o sue código tenho um sugestão, para evitar usar o .Select na Sub BtInserirNovo_Click() você pode usar o With combinado com Cells.
De uma olhada:

Private Sub BtInserirNovo_Click()
    
    Dim WsFun       As Worksheet: Set WsFun = Sheets("FUNCIONARIOS")
    
    Dim Nlin        As Double: Nlin = WsFun.Range("B1048575").End(xlUp).Offset(1, 0).Row
    
    With WsFun.Cells(Nlin, 2)
        .Value = Me.TxNome.Text
        .Offset(0, 1).Value = Trim(Me.TxCPF.Text)
        .Offset(0, 2).Value = Trim(Me.TxFone1.Text)
        .Offset(0, 3).Value = Trim(Me.TxFone2.Text)
        .Offset(0, 4).Value = Trim(Me.TxTurno.Text)
        .Offset(0, 5).Value = Trim(Me.TxFuncao.Text)
        .Offset(0, 6).Value = Trim(Me.TxEmail.Text)
    End With

    Me.TxNome = ""
    Me.TxFone1 = ""
    Me.TxFone2 = ""
    Me.TxCPF = ""
    Me.TxFuncao = ""
    Me.TxTurno = ""
    Me.TxEmail = ""
    
    Unload Me
    
End Sub

Valeu, Bruno. Fica melhor assim mesmo. Obrigado.

Sobre a cor kkkkkkk usei pra testar. Ficou péssimo mesmo. O velho preto sempre vence.