Hi everyone
i stucked in this Excel VbA programme and already spent 3 days in
solving this cant afford to spend more so plz help me out

1] I want to insert an empty cell above the cell value which
gives"D" 10

where : "D" = Sqr((r.Value - r.Offset(-1, 0).Value) ^ 2 +
(r.Offset(0,
1).Value - r.Offset(-1, 1).Value) ^ 2)
[D = dqrt(((x2-x1)^2+(y2-y1)^2)) ]

For Example
"D" = 11 for cell a90 , b90 & a 91 , b91 value......then insert
cell above a91 and b 91

similarly wherevr we get "d" 10

2} Now the second part, copy all the value before first empty cel
occurs
say in row a91 empty cell ocurs so code shud copy all values above
empty cell n paste the a1:b91 values in col.c n col.d [c1:d91]

like wise if again empty cell occur at a140 then copy values from
a92:b139 n paste them to col .e & col.f [E1:F47]

like wise for other values i have data set of 2000 values which vary
according to input taken by user

if prblem is not framed properly plz let me knw
plz suggest some vba code/ideas
if u hav n some sites from wher i can learn such kinda code

many thanx in advance
all replys ar welcome
i hop get response from this group