something like this might do it for you.
Notice I copy one row down at d15

Sub newtable()
Range("e14:e17").Formula = Range("d15:d18").Formula
End Sub

--
Don Guillett
SalesAid Software

"jay dean" wrote in message
...

In SheetB, a table with range (B5:P150) contains linked formulas,
example cell B5 contains the formala =Sheet7!C6 , cell B6 contains the
formala =Sheet7!C58 e.t.c

I want to create a second table of the same range (B155:P300) in SheetB
below the first one with each cell in the new table containing the exact
same formula as its corresponding cell in the first table with this
restriction: The cell refence portion of the formula of each cell in the
second table will be plus 1 row.

Example: range("B5").formula=Sheet7!C6 so,
range("B155).formula=Sheet7!C7 (i.e + 1 row)

range("B6").formula=Sheet7!C58 so,
range("B155).formula=Sheet7!C59 (i.e + 1 row)

Basically the macro will copy the SAME formulas to a new location
modifying only the row portion of the copied formula to one row more. I
would appreciate your help. Please I need a macro. Thanks.
Jay Dean

*** Sent via Devdex http://www.devdex.com ***
Don't just participate in USENET...get rewarded for it!