huhuem đang làm bài tập chương 7 và em muốn thêm phần kẻ khung cho Sheet("Data")

Chào bạn bạn có thể đẩy file lên được không? ở đây bước bạn phải chọn chỉ là vùng cuối cùng kẻ ô thôi đúng không?
'Sheets("Data").Range("A" & DongCuoi & ":E" & DongCuoi).Select đoạn này bị sai này.
bạn xem code mẫu
Option Explicit

Sub kedong()
Dim dc As Long, vungchon As Variant
dc = Sheet1.Range("A" & Sheet1.Rows.Count).End(xlUp).Row
Sheet1.Range("A" & dc, "D" & dc).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
End Sub

vẫn lỗi thầy ạ
thầy xử lý giúp với ạ
các câu lệnh ở dưới thầy xem và sửa giúp
bài tập chương 7
sub kedong em để Sheeet2 hoặc sheets("Data") đều lỗi ạ


Sub Luu_Du_Lieu()
Dim DongCuoi As Long
DongCuoi = Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row
'Sheet Data phai luon duoc mo khoa
'Sheets("Data").Unprotect Password:="1"
'Xac dinh ket qua luu
Sheets("Data").Range("A" & DongCuoi + 1).Value = Sheets("ThemMoi").Range("A3").Value 'Ten hang
Sheets("Data").Range("B" & DongCuoi + 1).Value = Sheets("ThemMoi").Range("E3").Value 'DVT
Sheets("Data").Range("C" & DongCuoi + 1).Value = Sheets("ThemMoi").Range("A6").Value 'So luong
Sheets("Data").Range("D" & DongCuoi + 1).Value = Sheets("ThemMoi").Range("C6").Value 'don gia
Sheets("Data").Range("E" & DongCuoi + 1).Value = Sheets("ThemMoi").Range("E6").Value 'thanh tien
'Khoa sheet lai
'Sheets("Data").Protect Password:="1"
End Sub

Sub Xoa_Du_Lieu()
Sheets("ThemMoi").Range("A3:C3, A6").ClearContents
End Sub

Sub Luu_Du_Lieu_KetQua()
Call Luu_Du_Lieu
Call Xoa_Du_Lieu
Call kedong
MsgBox "Luu du lieu thanh cong"
End Sub



Sub kedong()
Dim dc As Long, vungchon As Variant
dc = Sheet2.Range("A" & Sheet1.Rows.Count).End(xlUp).Row
Sheet2.Range("A" & dc, "E" & dc).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
End Sub

Ở đây bạn dùng record macro cho thao tác kẻ khung nên sẽ có vấn đề là Code dài và sử dụng đối tượng làm việc Selection.
Không nên làm việc theo cách này mà bạn làm việc trực tiếp luôn (không thông qua bước .Select nữa):
Sub Ke_Khung3()
Dim DongCuoi As Long
DongCuoi = Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row
'Câu lệnh kẻ khung rút gọn lại chỉ như thế này
With Sheets("Data").Range("A" & DongCuoi & ":E" & DongCuoi)
.Borders.LineStyle = xlContinuous
End With

End Sub

ok.đã được rồi thầy
cảm ơn thầy ạ