How to copy a cell based on anothers value

[QCManBMW]

I Have about 40 spread sheets to manipulate and need some help doing it. I am looking to see how to copy a cell based upon the cell above it. If the initial cell has the word Site or Workshop in it then, copy the cell immediately above it.

on my example where ever the A column reads a Site or Workshop I want it to copy the number above it? Hope I am being clear enough. Thank you in advance for any help.

[Special-K]

in I2
=IF(B2<>1,LOOKUP(2,1/(B$1:B2=1),A$1:A$30),"")
and copy down the column

[QCManBMW]

Special K, Thank you for your help! I appreciate it.