Смог решить проблему таким методом:
Данная функция срабатывает вторая при условии нажатии на кнопку. она записывает те данные в ячейку, которые вы вписали в userform TextBox1
Private Sub CommandButton4_Click()
With UserForm1
Range("A3").Value = Me.TextBox1.Value
End With
End Sub
---------------------------------------------------------------------
Первым делом срабатывает эта функция, она читает данные в ячейках и вносит их в строку в строку ввода userform.
Private Sub UserForm_Initialize()
Dim adr, str
str = ActiveCell.row
adr = "A" & str
TextBox1.Value = Range("A3").Value
End Sub
Изложил как сам понял, извините зеленый в этом деле.
Но свою проблему решил :)