Kapanışta aktarma

[orayda]

Son anda "kapat" dedikten sonra seçtiğim sütunları "ana" sayfada seçilen yere aktarıp kaydettikten sonra kapatmak istiyorum, kodları düzenledim ama hata veriyor?. nasıl düzeltebilirim;?
ilgilenenlere şimdiden teşekkürlerimle..

 

[Husgvarna]

Son anda "kapat" dedikten sonra seçtiğim sütunları "ana" sayfada seçilen yere aktarıp kaydettikten sonra kapatmak istiyorum, kodları düzenledim ama hata veriyor?. nasıl düzeltebilirim;?
ilgilenenlere şimdiden teşekkürlerimle..

Merhaba.
Userform5 deki butonda aşağıdaki kırmızı bölümü silin iki kod başlığı olmaz.Hata vermesi ondan.

 Private Sub CommandButton2_Click()
  [COLOR="Red"]Sub AKTAR()[/COLOR]
    Range("A26").Select
    Sheets("ANA").Select

İsteğiniz gibi bir aktarma olmazsa ayrıntılı bir açıklama yapın.