Sửa giúp đoạn code tự động chèn dòng và bổ sung ký tự (1 người xem)

[Nguyễn Hồng Quang]

Dear all
Mình có file gửi kèm và 1 đoạn code nho nhỏ để trình bày lại dữ liệu trong bảng tính
Mọi người xem giúp đoạn code này và điều chỉnh lại giúp mình sao cho excel điền chữ Tong cong ở dòng cuối cùng của vùng dữ liệu chứ ko phải dòng cuối cùng của bảng tính

Public Sub Chendong()
For rw = Cells(65536, 1).End(xlUp).Row To 1 Step -1
If Not Cells(rw, 1).Value = Cells(rw + 1, 1).Value Then Cells(rw + 1, 1).EntireRow.Insert
Next rw


For rw = Cells(65536, 1).End(xlUp).Row To 1 Step -1
If Cells(rw, 1).Value = blank Then Cells(rw, 1) = "Tong cong"
Next rw
For rw = Cells(65536, 1).End(xlUp).Row To 1 Step -1
If Cells(rw, 1).Value = "Tong cong" Then Cells(rw, 1).Font.FontStyle = "Bold"
Next rw
For rw = Cells(65536, 1).End(xlUp).Row To 1 Step -1
If Cells(rw, 1).Value = "Tong cong" Then Cells(rw, 1).EntireRow.Insert
Next rw
Dim row_i As Long
row_i = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row
Cells(row_i + 1, "A").Select
Cells(row_i + 1, "A") = "Tong cong"
Cells(row_i + 1, "A").Font.FontStyle = "Bold"
End Sub
Dear all
HIện mình đang làm 1 đoạn code nhỏ

 

[Nguyễn Hồng Quang]

Xin cảm ơn các bài đã viết của các Chuyên gia trên GPE
Sau khi nghiên cứu Mình sửa thành
Dim LastRow As Long
With ActiveSheet
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
Cells(LastRow + 2, "A").Select
Cells(LastRow + 2, "A") = "Tong cong"
Cells(LastRow + 2, "A").Font.FontStyle = "Bold"
End With

 

[befaint]

With ActiveSheet.Cells(ActiveSheet.Rows.Count, "L").End(xlUp).Offset(2, -11)
    .Value = "Tong cong"
    .Font.FontStyle = "Bold"
End With