Em muốn điền thông tin cho dòng cuối xong kẻ khung cho dòng cuối mà em viết

Chào bạn bạn tham khảo:
Option Explicit

Sub chondong()
Dim dc As Long
dc = Sheet1.Range("G" & Rows.Count).End(xlUp).Row
Sheet1.Range("G" & dc, "I" & 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
End Sub

Thứ 1: Code của bạn lỗi do dấu hai chấm bạn không đặt trong dấu nháy kép. Chú ý lại cách viết code với đối tượng Range nhé.
Thứ 2: bạn record macro cho thao tác kẻ khung tại 1 vùng bất kỳ (như code do thầy Tuấn Ba cung cấp), sau đó thay đổi vùng đó bằng dòng cuối (như code của bạn đang viết ở trên)

cám ơn thầy ạ

Thầy cho em hỏi
em viết code như bên duois nhưng vẫn báo lỗi:
Sheets("Data").Range("B" & DongCuoi & ":O" & DongCuoi).Select
thầy giúp giải thích với ạ


Sub Ke_Khung3()
'
' Ke_Khung3 Macro
'
Dim DongCuoi As Long
DongCuoi = Sheets("Data").Range("B" & Rows.Count).End(xlUp).Row
Sheets("Data").Range("B" & DongCuoi & ":O" & DongCuoi).Select
ActiveSheet.Unprotect
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
Sheets("Data").Unprotect Password:="1"
End Sub

Chào bạn lỗi chỗ Unprotect đúng không?