VBA Code To Subtract Data In 7 Paired Cells To Be In New Cells

My data is like this

A
B
C
D
E
F
G
H

[code]......

now i want after the last data column to put formula "= ROUND((C2-D2)/100000,2)" in S2 similary "= ROUND((E2-F2)/100000,2)" in T2 using VBA till all data colimns upto column R are used in subsequent columns

I tried following code

Sub tot()
' This subtracts credits from debits and divides by 100000
Application.Goto Reference:=Range("s4")
Dim dr, cr, clmn, ansclmn, cln As Integer
For ansclmn = 19 To 26

[code]....