Makro çalışırken şarta göre dursun

[birincipupam]

Arkadaşlar uzunca bir makrom var.aşağıda görüldüğü gibi bir şart sağladığında (şartın sağlandığı an) makronun durmasını istiyorum.
Aşağıdaki(dur)yazan yerlere öyle bir kod yazmalıyımki: Sayfa1 de B1 = "Bitti" şartı sağlandığında makro ;"kayıt yapıldı" uyarısı versin ve en önemlisi DURSUN'

Hiçbir yerde bulamadım.
YARDIMLARINIZ için Sağolun...

Sub çoklukaydet()

Application.Run "kaydet"
Range("G104:G124").Select
Selection.Copy
Range("F104").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

' dur'


Application.Run "kaydet"
Range("H104:H124").Select
Selection.Copy
Range("F104").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' dur'
Application.Run "kaydet"
Range("I104:I124").Select
Application.CutCopyMode = False
Selection.Copy
Range("F104").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' dur'
Application.Run "kaydet"
Range("J104:J124").Select
Application.CutCopyMode = False
Selection.Copy
Range("F104").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' dur'
Application.Run "kaydet"
Range("K104:K124").Select
Application.CutCopyMode = False
Selection.Copy
Range("F104").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End Sub

 

[birincipupam]

VEYA EN AZINDAN
run time error 1004
worksheets sınıfının Select yöntemi başarısız
HATA MESAJI GELDİĞİNDE "end" butonuna tıkladığımda yapılan işlem neyse o kodu eklemem lazım.
ÇÜNKÜ BU HATAYI ALDIĞIMDA END BUTONUNU TIKLATINCA BENİM İSTEDİĞİM OLUYOR.