Private Sub UserForm_Initialize()
Dim ReminderRow As Long, Clls As Range
Application.ScreenUpdating = False
Reminder.Clear
With Sheet1.Range("A1").CurrentRegion
.AutoFilter 10, "<>xong"
For Each Clls In Intersect(.Cells, .Offset(1, 9)).SpecialCells(12)
Reminder.AddItem Clls.Offset(, -9)
Reminder.List(ReminderRow, 1) = Clls.Offset(, -8)
Reminder.List(ReminderRow, 2) = Clls.Offset(, -7)
Reminder.List(ReminderRow, 3) = Clls.Offset(, -6)
Reminder.List(ReminderRow, 4) = Clls.Offset(, -5)
Reminder.List(ReminderRow, 5) = Clls.Offset(, -4)
Reminder.List(ReminderRow, 6) = Clls.Offset(, -3)
Reminder.List(ReminderRow, 7) = Clls.Offset(, -2)
Reminder.List(ReminderRow, 8) = Clls.Offset(, -1)
Reminder.List(ReminderRow, 9) = Clls.Offset(, 0)
ReminderRow = ReminderRow + 1
Next
.AutoFilter
End With
Application.ScreenUpdating = True
End Sub