"değiştir" komutu kodunda problem var!!!

[Amaxx]

Arkadaşlar aşağıdaki kodda sorun nedir? Bu komutla lisbox1 de seçtiğim satırda değişiklik yapmak istiyorum. ama yazdığım kodla yaptığım değişiklik aynı satıra yazmıyor....

Private Sub CommandButton11_Click() '...................DEĞİŞTİR.....DEĞİŞTİR.....DEĞİŞTİR.....DEĞİŞTİR.....DEĞİŞTİR.....DEĞİŞTİR.....
Sheets("teklif").Select
Dim bos As Range
For Each bos In Range("B2:B" & WorksheetFunction.CountA(Range("B2:B65000")))
If TTeklifNo.Value = "" Or bos = "" Or ActiveCell = "" Then
MsgBox "Önce aradığınız veriyi BUL ile bulmalısınız", vbInformation, "DİKKAT"
Exit Sub
End If
Next bos
If TMusteri = "" Or TTeklifNo = "" Then
MsgBox "Stok listesinden bir Ürün seçmelisiniz", vbExclamation, "DİKKAT"
Else
ActiveCell = TTeklifNo
ActiveCell.Offset(0, 1) = TMusteri.Value
ActiveCell.Offset(0, 2) = Tkodno.Value
ActiveCell.Offset(0, 3) = ComEn.Value

MsgBox "değiştirilmiştir"
End If

End Sub