Adding two columns with equations in every other column using VBA

[afletcher79]

Hey
I hope someone can spare some time to help me with this. It's starting to hurt my brain.

I'm a novice user.
I'm part way through a macro to handle a data set and this has me stumped. I can't find a macro that works to add 2 columns in every other, and then to add (or copy) equations for specific rows, or should I handle that in a different sub?

So, what I want to do is:
For a cell with a number in it, I want to add two columns next to the number then refer to it (and others) in equations to fill a table of 2 columns and 5 rows. The equation would be something like =if(D7="","",D7+A7).

Below is the mini sheet with calculations in column DE and GH that I want to copy and paste for each data column.

Thanks in advance for any help, I really appreciate it.

Andy

Example_Workbook.xlsm
	A	B	C	D	E	F	G	H	I	J	K	L
1	70	0.01
2	Locations=		1			17			18	19	20	21
3	Water Depth		10			10.5			11	10.7	10.6	10.3
4	KP		1.201707			5.73			5.9345	6.2638	6.5069	6.8286
5	Location		VC-01			VC-17			VC-18	VC-19	VC-20	VC-21
6	Mudline		0			0				0	0	0
7	Soft CLAY to		2.6	10	1.211707	1	10	1.211707		1.4	1.4	1.2
8				12.6	1.211707		11	1.211707
9				12.6	1.201707		11	1.201707
10				10	1.201707		10	1.201707
11				10	1.211707		10	1.211707
12	SAND		4.5	12.6	1.211707					2		3.2
13				14.5	1.211707
14				14.5	1.201707
15				12.6	1.201707
16				12.6	1.211707
17	Cemented Sand / Calcarenite										2.8
18
19
20
21
22
DPR Fence

Cell Formulas
Range	Formula
D7,D13,D18,G7,G13,G18	D7	=IF(C6="","",C6+$C$3)
E7:E8,E11:E13,E16:E18,E21,H7:H8,H11:H13,H16:H18,H21	E7	=IF(D7="","",$C$4+$B$1)
D8,G8	D8	=IF(AND(C6="",D7=""),"",C7+$C$3)
D9,D14,D19,G9,G14,G19	D9	=D8
E9:E10,E14:E15,E19:E20,H9:H10,H14:H15,H19:H20	E9	=IF(D9="","",$C$4)
D10,D15,D20,G10,G15,G20	D10	=D7
D11,D16,D21,G11,G16,G21	D11	=D7
D12,D17,G12,G17	D12	=IF(C12="","",MAX(D7:D11))