代码不起作用

大家好，我刚学VBA,我要实现写公式并且每隔2列自动填充，有50列和1600行需要填充公式，但我写的如下代码运行后无任何反应，也不报错，拜托哪位大神帮忙诊断下，谢谢
dim i%,d&
a=28
c=application. worksheet function. counta(range("AA2:HG2"))
for d=2 to rownum step 1
for i=1 to c/3-1
cells(d,a+i*3). formulaR1C1="="&"ceiling(abs(min(RC[-2]-RC[-1],0)),cells(d,$k))"
next i
next d
End sub