Buddy,
Try:

Range("B2:AA2").Select
Selection.FillRight

This will do the same as Ctrl+R from the keyboard
--
Chris Freeman
IT Project Coordinator


"Buddy" wrote:

Sub Sum()
Range("Rows(2)" & Range("B:AA" & Rows.Count).End(xlUp).Row).Formula =
"=SUM(B3:B15)"
End Sub

Here is my current macro. I am aiming to get every Column in Row 2 starting
in B2 and ending in AA2 to put the formulas below inside. If you can help I
would appreciate it.

In B3 I am want to put this formula =SUM(B3:B15)
In C3 I am want to put this formula =SUM(C3:C15)
In D3 I am want to put this formula =SUM(D3:D15)
Continued...
In AA3 I am want to put this formula =SUM(AA3:AA15)