code copy data of certain column from sheet to another doesn't work

[leap out]

hello guys
I have this code it supposes data of column b in sheet1 to column e in sheet2 without any duplicated , but it doesn't happen any thing
so I appreciate if any body provide advice how can fix it .

Sub CopyUnique()
    Dim s1 As Worksheet, FirstEmptyRow As Long, expCol As Long
    Set s1 = ActiveSheet
    With Sheets("sheet1")
        .Range("b:b").Name = "code1"
        expCol = .Range("code1").Column
        FirstEmptyRow = .Cells(.Rows.Count, expCol).End(xlUp).Row + 1
        s1.Range("e2:e100").Copy .Cells(FirstEmptyRow, expCol)
        .Range("code1").RemoveDuplicates Columns:=1, Header:=xlNo
    End With
End Sub

thanks

 

[Fluff]

Ok, how about

Sub CopyUnique()
   Dim s1 As Worksheet
   Set s1 = Sheets("Sheet2")
   With Sheets("sheet1")
      .Range("B2", .Range("B" & Rows.Count).End(xlUp)).Copy s1.Range("E" & Rows.Count).End(xlUp).Offset(1)
   End With
   s1.Range("E:E").RemoveDuplicates 1, xlNo
End Sub

 

[leap out]

@Fluff
impressive ! many thanks

 

[Fluff]

Glad we could help & thanks for the feedback.

 

[leap out]

@ arandomhelper

sorry about delaying for reply your code updating also works very well
many thanks