Write properly a formula in VBA excel

I'm struggling to write a formula in VBA excel.

This is my code:

Dim Formula as Range
Dim Number as Integer

Number = 1

Formula.formula = "=MAX(IF(LEFT(B7:B250,1)= & Number &, B7:B250))"

It gives my syntax error.

Could you help me out? Thank you.