Bạn thử đoạn này xem
Sub Kevien()
Dim Er As Long, sRng As Range, eRng As Range, Cll As Range, Dk As Boolean
Application.ScreenUpdating = False
Application.EnableEvents = False
Er = Range("E8").End(xlDown).Row
If Er > 8 Then
Set sRng = Range("D8:D" & Er)
sRng.Resize(...