Add non continous cells in a row to last used row

[kelly mort]

Hi,

I am adding F7, H7, J7, L7 and N7 into S7 . Then go down to S8 and do same addition till I get to the last used cell in column A . Can someone help me with a vba script?

 

[footoo]

Range([S7], Range("S" & Cells(Rows.Count, "A").End(xlUp).Row)).Formula = "=F7+H7+J7+L7+N7"

 

[kelly mort]

Range([S7], Range("S" & Cells(Rows.Count, "A").End(xlUp).Row)).Formula = "=F7+H7+J7+L7+N7"

Okay

Great. Thanks

 

[kelly mort]

Range([S7], Range("S" & Cells(Rows.Count, "A").End(xlUp).Row)).Formula = "=F7+H7+J7+L7+N7"

There
There is a problem :

When I don't place the pointer in the sheet i am referring to, I get an error

I placed "Sheet1." Before "Range" and "Cells" in the code. Can you point out what I am doing wrongly?

 

[footoo]

With Sheets("Sheet1")
.Range(.[S7], .Range("S" & .Cells(Rows.Count, "A").End(xlUp).Row)).Formula = "=F7+H7+J7+L7+N7"
End With

 

[kelly mort]

Oh okay I missed the ". [S7]"