How to use Filldown properly

[ExcelPupper]

Hi I just want to confirm what's wrong on the code below particularly in the Filldown portion? It won't run properly when I tried it earlier.
Just to add, I am trying to copy the formula on Sheet1.Range (B2:E2) until the last row with data using column A of Sheet1 as reference.
Thanks!

Sub CopyData()

Dim lr As Long, lr2 As Long

lr = Sheets(3).Range("B" & Rows.Count).End(xlUp).Row
lr2 = Sheets(1).Range("A" & Rows.Count).End(xlUp).Row


    Sheets(3).Range("B2:B" & lr).Copy
 
  
    Sheets(1).Range("A2").PasteSpecial Paste:=xlPasteValues
    Sheets(1).Range("A:A").RemoveDuplicates Columns:=1, Header:=xlNo
    Sheets(1).Range("B2:E" & lr2).FillDown
      
  

End Sub

 

[Fluff]

It won't run properly

In what way?

 

[ExcelPupper]

In what way?

Hi, on the Filldown portion it only copies the Column Names (Cells B1:E1) then paste it on the Cells B2:E2. And the macro ends without giving any error.

 

[Fluff]

Ok, you are calculating the last row in sheets(1) before you add the data & remove the duplicates. Move that line to just before you fill down.

 

[ExcelPupper]

Ok, you are calculating the last row in sheets(1) before you add the data & remove the duplicates. Move that line to just before you fill down.

Ohh okay, now I get it. Initially it captures the header of column A from Sheet1. Thanks for the tip!

 

[Fluff]

You're welcome & thanks for the feedback.