Warunkowe wykonanie makra przy zapisywaniu

[golem14]

Mam makro "Kopiowanie", które w arkuszu numer 2 wstawia nową kolumnę i kopiuje do niej konkretną kolumnę z arkusza nr 1.
Makro działa, chciałbym jednak podpiąć je pod akcje zapisywania arkusza. Ponadto chciałbym aby przed wykonaniem makra sprawdzany był warunek czy w arkuszu nr 2 znajdują się dane z arkusza numer 1.
Jak rozumiem powinienem więc mieć makro np. "Sprawdzian", które sprawdza czy w komórce A1 arkusza 2 znajdują się dane z komórki A1 arkusza 1 i w wypadku fałszu wykonać makro "Kopiowanie", zaś w wypadku prawdy zakończyć wykonywanie makr. Wtedy mógłbym podpiąć makro "Sprawdzian" pod zdarzenie zapisywania dokumentu nie martwiąc się, że te same dane będą wstawianie do arkusza 2 za każdym zapisywaniem dokumentu.
Bardzo proszę o pomoc w napisaniu makra warunkowego "Sprawdzian"

[belstar]

Kod: Zaznacz cały

Sub Main 
Doc = ThisComponent
Arkusz1 = Doc.Sheets.getByName("Arkusz1")
Arkusz2 = Doc.Sheets.getByName("Arkusz2")
Kom_Arkusz1_A1 = Arkusz1.getCellByPosition(0, 0)
Kom_Arkusz2_A1 = Arkusz2.getCellByPosition(0, 0)

If Kom_Arkusz2_A1.String = Kom_Arkusz1_A1.String then
	Exit sub
Else
 msgbox "tu trzeba wstawić twój kod lub wywołanie twojego makra" & chr(13) & chr(13) & "Cała ta linia do usunięcia"
End If
End Sub