Trying to get new inputs from Userform into New/Unused Columns

Hi All,

I am trying to get values from a userform input into columns; every time I put a new value into a new userform, the results should shift over to the next column. The code in question is below.

If Me.ComboBox1.Value = "" Then
        MsgBox "Select the part"
Else
Set Found = Sheets("PARTS_TRACKER").Range("A:A").Find(What:=Me.ComboBox1.Value, _
                                                       LookIn:=xlValues, _
                                                       LookAt:=xlWhole, _
                                                       SearchOrder:=xlByRows, _
                                                       SearchDirection:=xlNext, _
                                                       MatchCase:=False)
      
Found.Offset(0, PR).Value = Me.TextBox43.Value
 
End If