Nhờ các Thầy chỉ giúp cách lấy giá trị số của ô cuối cùng trong sheet

'
Tên trang tính     Trị cần tìm          Ở các cột     Cột chứa số liệu    '
mau79aTH           Tổng A + B + C       (E:G)          AN
mau79aHD           Tổng cộng A + B + C  (C:O)          AH
mau20_1399         Tổng tiền            (B:N)          O
mau2021        '   Tổng cộng '(. . . )  (B:I)          J
. . .                . . . .           . . . . .       . . . .

Sub MotCachKhacDeHieuHon()
 Dim Sh As Worksheet, Arr()
 Dim ShN As String, Tong As String
 Dim J As Long, Rws As Long, Dm As Byte, fCol As Byte, Col As Byte
 ReDim KQ(1 To 4, 1 To 2)
 With Sheet1
    .[A2].Value = "Tên Trang Tính":             .[b2].Value = "Ket Qua"
 End With
 For Dm = 1 To 4
    ShN = Choose(Dm, "mau79aTH", "mau79aHD", "mau20_1399", "mau2021", "GPE")
    Set Sh = ThisWorkbook.Worksheets(ShN)
    Rws = Sh.UsedRange.Rows.Count + 9:          Tong = Sheet1.[AQ1].Value  '**'
    Arr() = Sh.[B10].Resize(Rws, 40).Value
    fCol = Choose(Dm, 4, 2, 1, 1, 9):           Col = Choose(Dm, 39, 33, 14, 9)
    KQ(Dm, 1) = ShN
    For J = 1 To UBound(Arr())
        If Left(Arr(J, fCol), 5) = Tong Then
            KQ(Dm, 2) = Arr(J, Col):            Exit For
        End If
    Next J
 Next Dm
 Sheet1.[A3].Resize(4, 2).Value = KQ()
End Sub