Paste Value and Link

[mickyh]

Good Morning.
I wonder if anyone can provide a solution, please. I would like to copy and paste values (which I can do) of selected sheets then link them to the original. pastelink doesn't work because I have a formula in the original cell.
any help greatly appreciated partial code below.

  On Error Resume Next
 
    Worksheets("Imput Sheet").Range("A40").Copy
    Workbooks("JobList.xlsx").Activate ' Is the correct name Estimate List .xlsx or Estimate List 2012.xlsx ? Change this to Estimate List Proper Filename
If wbook Is Nothing Then
    Workbooks.Open FileName:=Environ("USERPROFILE") & "\Dropbox\SPSL Shared\Estimates 2021\JobList.xlsx" ' substitute for directory location of workbook and correct Filename
    Worksheets("JobList").Range("A" & Cells(Rows.Count, "A").End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues
End If
    ThisWorkbook.Activate
    Worksheets("Imput Sheet").Range("B40:I40").Copy
    Workbooks("JobList.xlsx").Activate
    Worksheets("JobList").Range("A" & Cells(Rows.Count, "A").End(xlUp).Row).Offset(0, 2).PasteSpecial Paste:=xlPasteValues
    ThisWorkbook.Activate
    Worksheets("Imput Sheet").Range("E21:G21").Copy
    Workbooks("JobList.xlsx").Activate
    Worksheets("JobList").Range("A" & Cells(Rows.Count, "A").End(xlUp).Row).Offset(0, 10).Select
    Selection.PasteSpecial Paste:=xlPasteValues '
    ActiveWorkbook.Close savechanges:=True  '
    
    
    ThisWorkbook.Activate
    Application.CutCopyMode = False
    Range("C4").Select
    Application.ScreenUpdating = True

    
End Sub