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

'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