VBA pour sortinger la sortie du text en fonction des mots keys

J'ai ma sortie dans un file text qui contient plus de 500 instructions Procédure, Sélectionner et Where. Je veux séparer les trois instructions dans différentes feuilles (c.-à-d. Toutes les «Procédures» dans les instructions Sheet2, «Select» dans Sheet3 et «Where» dans Sheet4).

Données brutes:

PROCEDURE [dbo].[GetSettleData] @AttemptId BIGINT AS BEGIN SELECT Gross AS Amount ,CASE WHEN CustomerID = 0 THEN NULL WHEN CustomerID = 1 THEN -1 WHEN CustomerID = 2 THEN -2 ELSE CustomerID END AS CustomerID ,CAST(SubT AS TINYINT) AS SubT FROM Customer.Table WHERE AttemptId = @AttemptId; 

 PROCEDURE [dbo].[GetTransactionRevenueBilling] @storeId BIGINT ,@endDate DATETIME ,@temporaryIDNumber VARCHAR(50) AS BEGIN BEGIN TRY 

Lorsque je copy ces données dans Excel, la sortie passe à la colonne A, afin que je puisse lire la colonne A ligne par ligne, mais je dois séparer le text dans différentes feuilles.