Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing Then
Dim Sh As Worksheet, Rng As Range, sRng As Range, Cls As Range
[A4].CurrentRegion.Offset(2).ClearContents
Set Sh = Sheets("Du Lieu"): Set Rng = Sh.Columns("A:A")
Set sRng = Rng.Find(Target.Value, , xlFormulas, xlWhole)
If Not sRng Is Nothing Then
Set Cls = sRng.CurrentRegion
Cls.Cells(4, 1).Resize(Cls.Rows.Count - 3, Cls.Columns.Count).Copy _
Destination:=[A65500].End(xlUp).Offset(1)
End If
End If
End Sub