Problemi çözdüm.

On Error GoTo 10
bul = CommandButton1.Caption
bassat = Range("B2:B250").Find(bul).Row
For b = bassat To 250
sonsat = Range("B" & b, "b250").Find(bul).Row
Next b
10 If sonsat = 0 Then
MsgBox ("ARADIĞINIZ ÜRÜN BULUNAMADI")
Exit Sub
End If
Range("B" & bassat & ":F" & sonsat).Copy
With Me.Spreadsheet1.Sheets(1)
yaz = yaz + 1
.Range("a" & yaz).Activate
.Paste
Application.CutCopyMode = False
.Range("f" & yaz).Value = .Range("c" & yaz).Value * .Range("d" & yaz).Value
toplam = toplam + .Range("f" & yaz).Value
TextBox4.Value = CDbl(toplam)
End With