Este fórum está sendo desativado

Experimente: substitua esta linha linha = 4 por estas 'Procurar a primeira célula vazia na coluna "B" linha = Cells(Rows.Count, "B").End(3).Row + 1 apague o trecho abaixo (este trecho não está no código que você colocou acima mas está no seu arquivo) 'Procurar a primeira célula v...

Aproveitando o exemplo do almirjorge:

Private Sub CommandButton1_Click()
 TextBox6.Text = CDbl(TextBox1.Value) + CDbl(TextBox2.Value) + CDbl(TextBox3.Value) + CDbl(TextBox4.Value) + CDbl(TextBox5.Value)
End Sub

... iniciar a planilha em uma determinada célula ... Você quer que ao abrir o arquivo (nome: SeuArq) nele certa planilha esteja ativada e nela uma certa célula esteja selecionada. É isso? Se sim, em um arquivo vazio instale o código abaixo, atribua à macro um atalho de teclado (ex. Ctrl + y), nomei...

Alternativa:

em qualquer célula vazia

=B1-DATADIF("14/2/2017";HOJE();"m")*D1

Olá, Wesley.

A expressão abaixo deveria resolver, se não, sugiro que você disponibilize uma amostra do seu arquivo (não imagem).

CDbl(TextBox1.Value)

Experimente:

If Application.CountIf([A:A], Environ("USERNAME")) > 0 Then
 'coloque aqui o seu código
End If

Alternativa em D2

=B2=C2