vba import missing values and paste as values

Modified to paste values

Option Explicit
Sub Missing()
    Dim s1 As Worksheet, s2 As Worksheet
    Set s1 = Sheets("1")
    Set s2 = Sheets("2")
    Dim lr As Long, i As Long, lr2 As Long, Res As Variant
    lr2 = s2.Range("A" & Rows.Count).End(xlUp).Row
    With s2
        For i = 2 To lr2
            lr = s1.Range("C" & Rows.Count).End(xlUp).Row

            On Error Resume Next
            Err.Clear
            Res = Application.WorksheetFunction.VLookup(.Range("C" & i), s1.Range("C2:C" & lr), 1, False)
            If Err.Number <> 0 Then
                .Range("C" & i).Copy 's1.Range("C" & lr + 1)
                s1.Range("C" & lr + 1).PasteSpecial xlPasteValues
                .Range("D" & i & ":P" & i).Copy 's1.Range("E" & lr + 1)
                s1.Range("E" & lr + 1).PasteSpecial xlPasteValues
            End If
        Next i
    End With


End Sub