Can anyone pls translate my pseudo cod ein VBA ???

[deepika :excel help]

'DISTRIBUTION OF ESTIMATE
'estimate is the diff between hours in cells 12 and 13 of sheet1 (name of
sheet1 is WAS)
estimate = Cells(j, 12).Value - Cells(j, 13).Value

' a= the given planned start date from WAS
a = Cells(j, 7).Value

'check which column between cols 6 to 10 in sheet2(named FTP) does this
date fall in and store it in a variable called' k' and start distribution
from that col. say Sheets("FTP").Cells(i,k) where k can start anywhere
between 6 and 10.
loop if estimate >9
asiign that column starting at k to 9 ., i.e.,
Sheets("FTP").Ccells(i,k).Value=9
estimate= estimate -9
goto loop
else
Sheets("FTP").Cells(i,k).Value = estimate

I have to incerement thsi distribution to rows "i'' in ftp SHEET