Autoudfyld VBA

Hej

Er der nogen som kan hjælpe mig med en VBA kode.
Jeg skal bruge en som kan lave autoudfyld i celle D, hvis der står noget i celle B

min VBA er sådan her ud, hvor jeg så skal have tilføjet autoudfyld

Application.Workbooks("Schneider master udkast.xlsx").Sheets("Schneider og Sarel ").Unprotect "2412"

Application.Workbooks(2).Activate

Range("d164").Select
If Not IsEmpty(ActiveCell.Value) Then
   
Workbooks.Open Filename:= _
        "K:\PhaCWi\2018\Levtilskud\257 Schneider\Konvertering 17-18\ProdukthierakiTilVare.xlsx"
     
Sheets(1).Range("A7:C17").Select
    Selection.Copy
   
Application.Workbooks("Schneider master udkast.xlsx").Activate
   
    Destination = Sheets("Schneider og Sarel ").Range("A260").End(xlDown).Offset(1, 0).Select
    ActiveSheet.Paste
   
Application.Workbooks(2).Activate

Sheets("Schneider og Sarel ").Range("D164").Select
    Selection.Copy
   
Application.Workbooks("Schneider master udkast.xlsx").Activate

  Destination = Sheets("Schneider og Sarel ").Range("D260").End(xlDown).Offset(1, 0).Select
    ActiveSheet.Paste
   
    Destination = Sheets("Schneider og Sarel ").Range("D260").End(xlDown).Select
     
Her skal Autoudfyld være

    ActiveSheet.Range("$A$260:$D$1000").RemoveDuplicates Columns:=2, Header:=xlYes
   
       
      End If