VBA Cells.Find kapatma

[aserifkuzu]

makro şunu yapıyor: bir safyadan bir hüceyi kopyalıyor, bir başka sayfaya gidiyor (ctrl+F) yapıyor, kopyalanan değeri (BUL)'a yapıştırıp arıyor buluyor, sonra bulduğu hücrede (ctrl+shift+sağ ok) yapıp seçili alanı siliyor. Yani olmasını istediğim bu

ancak sorun veriyor ve sanırım sorun (BUL)'a yapıştırıp değeri bulduktan sonra (BUL)'u kapatmıyor bu yüzden (ctrl+shift+sağ ok) u yapamıyor

sorunu nasıl çözerim? teşekkürler

[aserifkuzu]

aslında sorun o değilmiş sorun:

Kod: [Seç]

Sub Makro7()
'
' Makro7 Makro
'

'
    Range("A1").Select
    Selection.Copy
    Sheets("Sayfa1").Select
    ActiveWindow.SmallScroll Down:=-9
   
    Cells.Find(What:="e", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
    Range(Selection, Selection.End(xlToRight)).Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("B5").Select
End Sub

formülde ki Cells.Find(What:="e"........... e makro kaydederken kopyalayıp yapıştırdığım değer ama kopyaladığım değer her zaman "e" olmayacak her zaman farklı değer olacak. bunu nasıl yapabilirim?