Zellen kopieren

Hallo.
Der unten gezeigte Code reagiert nur auf die Zelle E4. Ich möchte aber dass der Code auch auf die Zelle E5,E6 und E7 reagiert. Bitte um Hilfe

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address <> "$E$4" Then Exit Sub 'Hier als Beispiel die Zelle E1
Target.Copy
With Worksheets("Abfallerfassung Base Extrusion").Range("E" & Rows.Count).End(xlUp).Offset(  _
_
1, 0)
.PasteSpecial
.PasteSpecial xlPasteFormats
End With
Application.CutCopyMode = False
End Sub