Problem with defining arr for calculating Average and STDEV

I found an Excel VBA online that can calculate the average and the STDEV of numbers in Cells A1 to A10. See script below. This works. I tested it.
What I would like to do now is change this script so that it can be used for 1D data arrays with varying amount of data.
Assume I have data in column B. The first row is always row 2 but the last row varies.
How would the script look like assuming that the size of the array is variable and the last row is variable?

Function Mean(k As Long, Arr() As Single)

    Dim Sum As Single
    Dim i As Integer
    
    Sum = 0
    For i = 1 To k
        Sum = Sum + Arr(i)
    Next i
    
    Mean = Sum / k

End Function
Function StdDev(k As Long, Arr() As Single)

    Dim i As Integer
    Dim avg As Single, SumSq As Single
    
    avg = Mean(k, Arr)
    For i = 1 To k
         SumSq = SumSq + (Arr(i) - avg) ^ 2
    Next i
    
    StdDev = Sqr(SumSq / (k - 1))

End Function
Sub Compute()

    Dim Arr(10) As Single
    Dim Average As Single
    Dim Std_Dev As Single
    
    For i = 1 To 10
         Arr(i) = Sheets("Sheet1").Cells(i, 1)
    Next i
    
    Average = Mean(10, Arr)
    Std_Dev = StdDev(10, Arr)
    Sheets("Sheet1").Cells(5, 4) = Average
    Sheets("Sheet1").Cells(6, 4) = Std_Dev

End Sub

I found two other functions for average and STDEV. These functions seem better suited for what I want to do.
Question: How does the Sub "Compute" need to be modified so that I can used it for a 1D array with varying last row?

Function Mean(Arr)

    Dim Sum As Single
    Dim i As Integer
    Dim k1 As Long, k2 As Long
    Dim n As Long
    
    k1 = LBound(Arr)
    k2 = UBound(Arr)
    
    Sum = 0
    n = 0
    For i = k1 To k2
        n = n + 1
        Sum = Sum + Arr(i)
    Next i
    
    Mean = Sum / n

End Function
Function StdDev(Arr)

     Dim i As Integer
     Dim avg As Single, SumSq As Single
     Dim k1 As Long, k2 As Long
    
     Dim n As Long
    
     k1 = LBound(Arr)
     k2 = UBound(Arr)
    
     n = 0
     avg = Mean(Arr)
     For i = k1 To k2
        n = n + 1
          SumSq = SumSq + (Arr(i) - avg) ^ 2
     Next i
    
     StdDev = Sqr(SumSq / (n - 1))

End Function
Sub Compute()

    Dim Arr(10) As Single
    Dim Average As Single
    Dim Std_Dev As Single
    
    For i = 1 To 10
         Arr(i) = Sheets("Sheet1").Cells(i, 1)
    Next i
    
    Average = Mean(10, Arr)
    Std_Dev = StdDev(10, Arr)
    Sheets("Sheet1").Cells(9, 4) = Average
    Sheets("Sheet1").Cells(10, 4) = Std_Dev

End Sub

Dear karedog, thank you for the solutions. I personally like the Compute_Range solution the best. This one I will use. But I also got your Sub Compute() script to work. I will keep this one in mind.
bakerman2, thanks for the link.

I wanted to add to your reputation but I was blocked from doing that. I have been given too many to you ...