I need to paste special by values the data to my destination. I am not able to work it out. Please can someone help. thank you

```
Sub ExtractData()

Dim lastrow As Long
Dim erow As Long
Dim i As Long
'Dim mydate As Date
Dim myVIN As String

lastrow = Worksheets("Page1_1").Cells(Rows.Count, 1).End(xlUp).Row

Worksheets("Page1_1").Select

Worksheets("Page1_1").Range("L1").Select

For i = 2 To lastrow

myVIN = Cells(i, 1)

If myVIN <> "#N/A" Then

erow = Worksheets("OASIS Lookup").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Cells(i, 12).copy Destination:=Sheets("OASIS Lookup").Cells(erow, 1)
End If
Next i

End Sub

```