excel - VBA SUM Dynamic Ranges in column

Question

Sub SumColumnDynamic()
    Dim RngSumQ, RngSumQS, RngSumQL, SumRange As Range
    Set RngSumQ = Cells(Rows.Count, "A").End(xlUp).Offset(, 2)
    Set RngSumQS = Cells.FIND(What:="Quantity").Offset(1, 0)
    Set RngSumQL = Cells(Rows.Count, "A").End(xlUp).Offset(-1, 2)
    Set myRange = Range(RngSumQS, RngSumQL)
    Range("RngSumQL") = WorksheetFunction.Sum(SumRange)
End Sub

Answer 1

等待大神答复