Então, apenas um iniciante em Vba, mas acredito que seria simplês eu acho:
Crie um rotina que salve em algum trecho da planilha algo como "Executado", de forma que seja gravado assim que executar a macro, então uma simplês rotina de verificação antes da macro, algo do tipo:

Dim Verificar As String
Verificar = Worksheets("plan1").Range("A1").Value

If Verificar = "Executado" Then
MsgBox "Macro bloqueada"
Exit Sub 'termina a macro
Else
Worksheets("plan1").Range("A1").Value = "Executado" 'grava Executado e impede de executa-la novamente
End If
'aqui entra o código da sua macro

e no evento abrir do Workbook, adicione o evento para limpar a celula e permitir a execução da macro uma unica vez

Private Sub Workbook_open()
Worksheets("plan1").Range("A1").Value = "" 'limpa a seleção ao abrir a planilha
End Sub

Selmo, usei seu código e criei as rotinas... BATATA!

Muito obrigado.