Sem maiores detalhes, então supondo que J5 esteja na planilha "Plan1"

Poderia ser por exemplo, no evento change :

Private Sub suaCaixadeTexto_Change()
Sheets("plan1").Range("j5") = suaCaixadeTexto.Value 
End Sub

as demais podem seguir o mesmo conceito

Veja se pode evoluir, ou poste maiores detalhes

Desculpe! Realmente, coloquei poucos dados sobre a situação. Vamos a eles:

1 ) O nome da aba onde estão as células J15, J18, J21 e J24 é Principal.
2 ) O Userfom foi denominado de Formulario_01.
3 ) O nome das 4 caixas de texto são: NomeAba, NomeGrafico, NomeX e NomeY.
4 ) O Nome do botão dentro do Userform onde desejo clicar para salvar os dados chama-se Salvar.

Seguindo a sua orientação, eu fiz o VBA assim:

Private Sub Salvar_Change()
Sheets("Principal").Range("j15") = NomeAba.Value
Sheets("Principal").Range("j18") = NomeGrafico.Value
Sheets("Principal").Range("j21") = NomeX.Value
Sheets("Principal").Range("j24") = NomeY.Value
End Sub

Mas não funcionou, devo ter feito algo errado. Olhe o código que eu estava usando anteriormente:

Private Sub Salvar_Click()
totalregistro = Worksheets("Principal").UsedRange.Rows.Count
With Worksheets("Principal")
Cells(totalregistro, 1) = NomeAba
Cells(totalregistro, 2) = NomeGrafico
Cells(totalregistro, 3) = NomeX
Cells(totalregistro, 4) = NomeY
End With
End Sub

Este código funciona, mas com um problema: os 4 dados são salvos sempre nas colunas A, B, C e D. Mas a linha não é sempre a mesma. Hora os 4 dados são salvos em uma linha, hora são salvos em outra linha. Como faço para corrigir isso?

Mais uma vez, obrigado;

Niltoncsp.

Problema resolvido pelo meu irmão. Ficou assim o código:

Private Sub Salvar_Click()
Dim shtPrincipal As Worksheet

End Sub

Obrigado a todos.