Tính tổng một cột trong VBA

[xangellightx]

Em nhờ các anh chị chỉ giúp e về code tính tổng một cột .
Em muốn tính dòng Tổng cộng theo từng kho.
Em ghi macro thì ra được code như bên dưới, nhưng khi áp dụng chạy một bảng dữ liệu khác có số dòng nhiều hơn thì lại chạy không đúng.
Nhờ các anh chị chỉ giúp em sửa code như thế nào để bảng dữ liệu nhiều dòng hơn như sheet2 vẫn chạy đúng ạ. E cám ơn ạ.

Sheets("Sheet1").Select
Range("B28").Select
Selection.End(xlToRight).Select
ActiveCell.FormulaR1C1 = "=SUM(R[-21]C:R[-1]C)/2"
Range("D28").Select
Selection.Copy
Range("E28:G28").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

 

[XuanThanh]

Sub Tong()
    Dim n As Long
    With Sheet1
        n = .Range("B65000").End(xlUp).Row
        .Range("D" & n & ":G" & n) = "=SUM(R6C:R" & n -1 & "C)/2"
    End With
End Sub

 

[xangellightx]

Sub Tong()
    Dim n As Long
    With Sheet1
        n = .Range("B65000").End(xlUp).Row
        .Range("D" & n & ":G" & n) = "=SUM(R6C:R" & n -1 & "C)/2"
    End With
End Sub

Em cám ơn ạ. Nhưng nếu trường hợp các cột D,E,F,G ko có số liệu liên tục, có ô rỗng thì sao ạ, code này còn đúng ko ạ?

 

[XuanThanh]

Em cám ơn ạ. Nhưng nếu trường hợp các cột D,E,F,G ko có số liệu liên tục, có ô rỗng thì sao ạ, code này còn đúng ko ạ?

Luôn đúng. Thử thì biết