Zaman bulmuşken neden bulmadığını çözdüm.Alttaki gibi değiştirin.
Kalemlerin sonunda boşluk olduğu içinmiş bulmaması.
bulAy kod satırınada Trim ekleyebilirsiniz aynı şekilde.

Set bulKalem = .Rows(1).Find(Trim(Me.ComboBox3.Value), , xlValues, 1)