Hàm VBA auto update báo lỗi 400

[Ming Thy]

Trước giờ vẫn bình thường, tự dưng hôm nay bật lên excel báo lỗi code 400 với lỗi 1004 ạ. Mình vào kiểm tra thì excel tô vàng mấy ô in đậm như ở dưới mà mình không biết lỗi chỗ nào
Này là code tự động cập nhật dữ liệu vào bảng khi thêm thông tin mới. Các bạn xem bắt lỗi giúp mình với ạ

Sub Macro2()
'
' Macro2 Macro
'

'
Range("C1").Select
Range("D1").Select
ActiveWindow.SmallScroll Down:=-21
ActiveWorkbook.Worksheets("Sheet1").ListObjects("Table1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").ListObjects("Table1").Sort.SortFields.Add2 _
Key:=Range("Table1[[#All],[Date]]"), SortOn:=xlSortOnValues, Order:= _
xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").ListObjects("Table1").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.Worksheets("Sheet1").ListObjects("Table1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").ListObjects("Table1").Sort.SortFields.Add2 _
Key:=Range("Table1[[#All],[Date]]"), SortOn:=xlSortOnValues, Order:= _
xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").ListObjects("Table1").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

 

[Cá ngừ F1]

Tôi thấy File của bạn không có chút dữ liệu nào?
Vậy, mục đích code của bạn để thực hiện việc gì?

 

[Ming Thy]

Tôi thấy File của bạn không có chút dữ liệu nào?
Vậy, mục đích code của bạn để thực hiện việc gì?

Vì lỗi nên khi assign vào khung form thì nó không chạy nên không có dữ liệu ạ.
Mục đích là Tự động ghi ngày giờ, sắp xếp nội dung sau khi thêm, nếu nội dung ghi vào ngày 23 mà sang ngày ngày 25 mình điền lại nội dung thì thời gian vẫn không đổi.
-> Ghi thông tin ở dòng B1, C1, D1 -> nhấn vào ô A1 thì thông tin sẽ tự động cập nhật xuống ô B3,C3,D3 & ô A3 sẽ tự động hiển thị ngày cập nhật.
Khi thêm thông tin ở dòng 1, dữ liệu sẽ tự động cập nhật từ dòng 3 trở đi và sắp xếp theo ngày mới nhất ạ.

 

[Ming Thy]

Mình fix được rồi, lúc sort nó bị sai tên cột nên hàm không nhận diện được