Print value in each cell in range from userofrm

Hello,

From a userform I execute a macro that copies range r to the lastrow in range 2.
However, I want to add the value form a textbox (txtNamn) in the userform to
every row that gets pasted in range r2, I want the values in column D.

I suppose I have to use me.txtNamn to get the value, but how do I got about
adding it to every row?

Thanks in advance

Sub SparaRum()
Dim r As Range

    Set r = ActiveSheet.Range("F13:H" & ActiveSheet.Range("G" & Rows.Count).End(xlUp).Row)
    Set R2 = Sheets("RumPaket").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    r.Copy
    R2.PasteSpecial xlValues


End Sub