[Iska]

а как сделать тak, чтобы перед вставленной ячейкой, всегда автоматически вставлялись следующие строки: »

Например, так:

Код:

…
    With CreateObject("Scripting.FileSystemObject").CreateTextFile(strTempFile, True)
        .WriteLine "$UserCredential = Get-Credential"
        .WriteLine "$Session = New-PSSession -ConfigurationName Microsoft.Exchange -ConnectionUri http://exch.domain.ru/PowerShell/ -Authentication Kerberos -Credential $UserCredential"
        .WriteLine "Import-PSSession $Session -DisableNameChecking"
        .WriteLine
        
        For Each objRange In Selection
…