Problemas con la macro

[tender18]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim fila1 As Integer
Dim rgo As Range
Dim NewEntry As String
If Target.Cells.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub
If Not Intersect(Target, Range("A1:B3000")) Is Nothing Then
NewEntry = ""
NewEntry = Target
If Target <> "" Then
' hay que seleccionar las celdas que se van a copiar
Range(Selection, Selection.Offset(0, 0)).Select
'Esto copiar el texto seleccionado en la columna E
fila1 = Range("E7000").End(xlUp).Row + 3
Selection.Copy Destination:=Cells(fila1, 5)
End If
End If
End Sub

Yo tengo esta macro que lo que quiero que haga, es unos datos que se encuentran en las columnas A y que se actualizan cada 5 minutos me los copie a las columna E quiero que eso se haga automatico.

Gracias
Saludos Tender18

P.D: Cada vez que se actualizan los datos los copie a la columna E