Replace Fill Down, Complicated Equation

I altered it to cover the exact sheets named, and I get a compile error.

I changed the line

For Each Sh In Worksheets(Array("Sheet2", "Sheet4", "Sheet9"))

to

For Each Sh In Worksheets(Array("BHSDB", "BurtonDB", "DaisyAndEveDB", "DivaDB", "DorothyPerkinsDB", "FreedomDB", "GinaTricotDB", "MatalanDB", "TopMan", "WallisDB"))