desativei alguns comandos iniciais para que funcione
no final de seu codigo tambem é preciso desativar uma linha de comandos.
esta
ThisWorkbook.Worksheets("CPFf").Activate = False
Tenta começar teu formulário desta forma....
Private Sub SALVAR_Click()
'ThisWorkbook.Worksheets("CPFf").Activate '(foi retirado do codigo, ele abre a planilha em uqe voce que cadastrar)
'Range("A5").Select
'Do
'If Not (IsEmpty(ActiveCell)) Then
'ActiveCell.Offset(1, 0).Select
'End If
'Confere se o campo nome foi preenchido
If tCod.Value = "" Then
MsgBox ("Campo Código é Obrigatório")
'Exit Sub
tCod.SetFocus
Else
End If
linha = 2
Do Until Sheets("CPFf").Cells(linha, 1) = ""
linha = linha + 1
Loop
'Loop Until IsEmpty(ActiveCell) = True
'esta frenquencia é padrão é so repedir com os otros campus.
ActiveCell.Value = tCod.Value
Sheets("CPFf").Cells(linha, 1) = TextBox2
Sheets("CPFf").Cells(linha, 2) = TextBox3
qualquer duvida... fique a disposição