Como vc nao identificou a coluna inicial de soma faça os ajustes de acordo com os comentarios desse codigo

Os comentarios ficaram em verde qdo vc colar o codigo no modulo.

Sub somar()

Dim ln As Long
Dim Col As Long


With Sheets("Planilha1") 'Troque pelo nome da guia da planilha

'troque "E" pela letra da coluna onde inicia a soma

ln = .Range("E" & Rows.Count).End(xlUp).Row

'troque o 5 pela primeira coluna onde devera inicar a soma
'a=1 b =2 e assim por diante
For Col = 5 To .Cells(5, Cells.Columns.Count).End(xlToLeft).Column

.Cells(ln + 1, Col).Value = Application.WorksheetFunction.Sum(.Range(Cells(5, Col), Cells(ln, Col)))

Next Col

End With

End Sub

Cara Muito Obrigado me ajudou Muito!!!!! Mais tem um problema, que acabei nao comentando no Post!! Preciso que a ultima Coluna de Média e não Soma!!

A tabela tem o numero de colunas fixas?

Se sim qtas e qual?

É por isso que é bom postar o arquivo ao inves da imagem.