Macro code needed for combination of (If,Countif,vlookup)

I am creating multiple macro function workbook. Below formula is required for full fill my macro.
Please provide Macro VB code for below Excel formula

This formula is populate in sheet name "Worksheet 1" vlookup with "Worksheet 2"

=IF(COUNTIF(A1:$A$5000,A1)=1,VLOOKUP(A1,'Worksheet 2'!$A$1:$J$5000,10,0),"")

Here formula is showing J5000. But it will automatically stop in Last row of data