Beginner1, Welcome to VBAExpress.
That is a homework question and we don't do homework. See our FAQ.
We will help you figure out HOW TO on your own.
Copy these words into an other Sheet's code page and put the cursor in or next to each word and press F1.
Columns
Insert 'Range
Range
Cells
Offset
Sum
Long
String
For '...Next and For... each
Variant
Constant
Variable
Dim
When you have learned all you can from those, copy this code snippet into Sheet2's code page.
Option Explicit
Sub Test()
Dim Cel As Range 'An Object Variable
Dim i As Long 'i,j,&k are standard loop counters
Const ColSum1 As Long = n 'You must assign the column number for each of these Contants
Const ColSUm2 As Long = n
Const ColSum3 As Long = n
Columns(ColSum1).Insert
For i = 0 to 4
Cells(i, ColSum1) = Sum Range(Cells(i, n), Cells(i, n)
Next i
'Question: Why was I able to use the same number, ColSum1, for both the Insert and the " =Sum..."?
'What is the "i" standing in for?
End Sub
There are at least two easy errors in that code. Place the cursor inside the code and repeatedly press F8 to Step Thru the code.
When you get that bit to work properly, come on back and we'll teach you how to do all the Sum Columns in one more loop.