How to populate all the rows in one column based on one cell value

[snb]

I did it 'my way':

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$E$1" Then Cells(1).CurrentRegion.AutoFilter 2, Target
End Sub

or unnecessarily complicated

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$E$1" Then 
      with Cells(1).CurrentRegion
         .AutoFilter 2, Target
         .resize(,1).copy cells(1,5)
         .autofilter
      end with
   end if
End Sub