chào Team Gitiho xin hỗ trợ giúp dòng cuối có đếm được các ô gộp ngang

Chào bạn vấn đề đếm dòng cuối thì được bạn nhé, nhưng vấn đề tính toán sẽ không chính xác vì nguyên tắc tạo csdl sẽ không có phần gộp ô bạn nhé, nhưng phần báo cáo thì sẽ có

minh làm code để filldown công thức ở các dòng cột khác nhau mà ko viêt chung được vào công thưc cùng với đó khi chạy thì rất chậm đợi chục phút mà không xong nhờ ban xem giúp làm thế nào để dữ liệu chạy nhanh.

Sub Thang()

Dim DongCuoi As Long

    DongCuoi = Sheet2.Range("C" & Rows.Count).End(xlUp).Row

    Range("A10:A" & DongCuoi).FillDown

    Range("A11:A" & DongCuoi).Copy

    Range("A11:A" & DongCuoi).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

End Sub

Sub Vitri()

Dim DongCuoi As Long

    DongCuoi = Sheet2.Range("C" & Rows.Count).End(xlUp).Row

    Range("E10:I" & DongCuoi).FillDown

    Range("E11:I" & DongCuoi).Copy

    Range("E11:I" & DongCuoi).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

End Sub

Sub gio()

Dim DongCuoi As Long

    DongCuoi = Sheet2.Range("C" & Rows.Count).End(xlUp).Row

    Range("AP10:AU" & DongCuoi).FillDown

    Range("AP11:AU" & DongCuoi).Copy

    Range("AP11:AU" & DongCuoi).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

End Sub

Sub Cong()

Dim DongCuoi As Long

    DongCuoi = Sheet2.Range("C" & Rows.Count).End(xlUp).Row

    Range("Aw10:CA" & DongCuoi).FillDown

    Range("Aw11:CA" & DongCuoi).Copy

    Range("Aw11:CA" & DongCuoi).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

End Sub

Sub Kethop()

Call Thang

Call Vitri

Call gio

Call Cong

End Sub