Cumulative Actual auto sum within a table

Capture.PNG

So above is the table that i am working with, and im trying to get this to be more automatic so that it does the calculations without me having to interact with it. So i'm looking at the Cumulative actual column which is worked out from the hours booked so for each line you add up the previous amounts including that row and divide by how many data sets there are.For example for week 2 it would be 18.21 + 45.59 / 2. For week 3 it would be 18.21 + 45.59 + 38.46 / 3 and so on. Also taking into mind that the data is in a table and i will be taking rows out/hiding them and would need it to not include those hidden rows. Hopefull this makes sense so if i were to unselect week 7 i would need the sum on row 8 to not include that and to divide by 7 as there would only be 7 sets of data in that sum

Hopefully should have an attatched workbook

Im looking for the results of the cumualtive actual to be entered into the end column (Column4, forgot to rename it) the data that is in there currently is what i have worked out manually and entered into there but that is ideally where i would like the data to be worked out

I've copied that down but it seems like after row 12 it repeats itself, is it doing the correct calculation? As i'd have thought that the first row should match what is in the hours booked column as it would be 46.54/1 but is coming back with 32.15543

Here should be where i have copied all the datadown and the results should be shown

Excellent i believe , that this is what I was looking for. Thank you very much

Hi im not sure if i would need to make another ticket/post for this but was curious if i could get help with something else.

On another page of my spreadsheet I use a custom function in VBA to fetch the last piece of data in a column and show it to me.
Now that i am using a table for my data this function doesn't work exactly how i would like as i am wanting it to show the last visible column so if i had week 10 hidden on the table then it would pull the data from week 9

Belowis the code i use to get me the lastincoulmn:

Function LASTINCOLUMN(rngInput As Range)
Dim WorkRange As Range
Dim i As Long, CellCount As Long
Application.Volatile
Set WorkRange = rngInput.Columns(1).EntireColumn
Set WorkRange = Intersect(WorkRange.Parent.UsedRange, WorkRange)
CellCount = WorkRange.Count
For i = CellCount To 1 Step -1
If Not IsEmpty(WorkRange(i)) Then
LASTINCOLUMN = WorkRange(i).Value
Exit Function
End If
Next i
End Function