copy vlookup value using macro

hi everyone
i want get value from vlookup and copy it into another sheet
every time i run the code it show no error but value is blank
this is my code

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False
Dim name, v, n As String
Dim l, m As Range

name = Sheets("sheet3").Range("b1").Value
Set m = Range("a1:b4")
v = Application.WorksheetFunction.VLookup(name, m, 2, False)
n = Worksheets("sheet3").Range("b1").Value
Set l = Worksheets("sheet3").Range("a1")

If n = v Then
v.Value.Copy destination:=l

Application.CutCopyMode = False
Application.ScreenUpdating = True
Else
Exit Sub
End If
End Sub

Thank you

Unik's

it still didn't work

Maybe?

Sub uniks()
Application.ScreenUpdating = False
Dim name, v, n As String
Dim l, m As Range

name = Sheets("sheet3").Range("b1").Value
Set m = Range("a1:b4")
v = Application.WorksheetFunction.VLookup(name, m, 2, False)
n = Worksheets("sheet3").Range("b1").Value
Set l = Worksheets("sheet3").Range("a1")

If n = v Then
v.Copy
l.PasteSpecial xlPasteValues

Application.CutCopyMode = False
Application.ScreenUpdating = True
Else
Exit Sub
End If
End Sub

it didn't work either