Hyperlink issue on excel userform

It's easy to get confused by

ActiveCell

because it seems "magical", but it is actually just a Range!

To insert your hyperlink to a different destination, you can define that destination like I do below with the variable rngTargetCell.

Option Explicit
Private Sub CommandButton2_Click()
    Dim wks As Worksheet
    Dim rngTargetCell As Range
    
    'Set your references up-front
    Set wks = ThisWorkbook.Sheets("Sheet1") '<~ change this to your sheet name
    Set rngTargetCell = wks.Cells(8, 1) '<~ you add the logic here, I just
                                        '   defaulted it to cell(8, 1) which
                                        '   is row 8, column A.
    
    'Apply the hyperlink
    With rngTargetCell
        If Not .Hyperlinks Is Nothing Then
            .Hyperlinks.Add Anchor:=rngTargetCell, Address:=TextBox1.Text
        End If
    End With
    
End Sub

Cool -- so

iRow

is an Integer that represents the last-occupied row in the Data sheet. (This is a very common VBA pattern, by the way -- determining the last-occupied row on a Worksheet is a cornerstone of VBA programming.)

This should add links as needed:

Private Sub cmdSave_Click()

'... your code for validating inputs
'...
'...

ws.Cells(iRow, 1).Value = Me.txtJobNo.Value
ws.Cells(iRow, 2).Value = Me.txtEquipNo.Value
ws.Cells(iRow, 3).Value = Me.txtEquipDesc.Value
ws.Cells(iRow, 4).Value = Me.txtItemNo.Value
ws.Cells(iRow, 5).Value = Me.txtItemDesc.Value
ws.Cells(iRow, 6).Value = Me.txtDocdate.Value
ws.Cells(iRow, 7).Value = Me.txtRepDesc.Value

'This is the hyperlink-adding portion
With ws.Cells(iRow, 8) '<~ leverage iRow like we do above
    If Not .Hyperlinks Is Nothing Then
        .Hyperlinks.Add Anchor:=ws.Cells(iRow, 8), Address:=TextBox1.Text
    End If
End With

'... the rest of the subroutine
'...
'...

End Sub