Move dataset to new column when descriptor appears

[Samson_ALS]

Hi,

I'm trying to move a dataset into a new set of columns every time a descriptor appears.

More specifically, if you look at linked images, I would like to move the corresponding dataset to new columns every time the word "particle" appears.

Linked image #1 : https://wehieduau-my.sharepoint.com...9KolBTe8muMpsBVkH6hgGTxS7dzr25zOXXdA?e=sDq7HR

Linked image #2 : https://wehieduau-my.sharepoint.com...1CjfUZAPkxDoIBkRJjTprd6__kX2Zxiw6eGQ?e=KBkAJu

Any help with this would be greatly appreciated.

Thanks,

Andre

 

[Fluff]

Hi & welcome to MrExcel.
How about

Sub SamsonALS()
   Dim Ar As Areas
   Dim i As Long
   
   Set Ar = Range("A:A").SpecialCells(xlConstants).Areas
   For i = 2 To Ar.Count
      Ar(i).Resize(, (i - 1) * 4).Insert xlToRight
   Next i
End Sub

 

[Samson_ALS]

Hi & welcome to MrExcel.
How about

Sub SamsonALS()
   Dim Ar As Areas
   Dim i As Long
   
   Set Ar = Range("A:A").SpecialCells(xlConstants).Areas
   For i = 2 To Ar.Count
      Ar(i).Resize(, (i - 1) * 4).Insert xlToRight
   Next i
End Sub

Hi Fluff,

Thanks for your reply. Your code worked perfectly. Much appreciated!

 

[Fluff]

You're welcome & thanks for the feedback