Sub TheCatsMeow()
Dim varArray As Variant
varArray = _
Array(vbNullString, vbNullString, "=A1+B1", "=B2+C2", "=C3+D3", vbNullString)
ActiveCell.Resize(1, 6).Formula = varArray
End Sub

Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware


"TJ" wrote in message
...
We use excell to do all of our quotes and we have a formula we use every
time. I am looking for a way to create a button or macro or some one key
option to fill in the following formula to a selected row, any suggestions?

Column
A B C D E F

(EMPTY) (EMPTY) (FORMULA) (FORMULA) (FORM) (EMPTY)

Thanks!