[VBA] Unire due macro per Excel

[23Andrea]

Ciao.
Questa macro

Option Explicit

Sub Macro1()
Dim variabile
variabile = "Notepad.exe" & " " & "C:\Users\<nome utente>\Desktop\" & (Range("I2").Value)
Shell (variabile), 1
End Sub

apre, con Blocco Note, un file di testo in un percorso predefinito, con il nome corrispondente alla stringa contenuta nella cella I2.
Il contenuto della cella I2 viene a sua volta determinato utilizzando un'altra macro

Option Explicit

Sub Macro3()

    Range("I2").Select
    ActiveCell.FormulaR1C1 = "=CONCATENATE(TEXT(Tabella_Indice[[#This Row],[data]],""aaaa.mm.gg""),""_"",Tabella_Indice[[#This Row],[n°]],Tabella_Indice[[#This Row],[D]])"
End Sub

che concatena le stringhe contenute nelle tre celle, della stessa riga, corrispondenti alle colonne "data", "n°" e "D".
Come posso sostituire al componente (Range("I2").Value) della prima macro la funzione contenuta nella seconda macro, in modo da eliminare la cella di appoggio I2?
Grazie.