Text cell list sorting problem

[Harold123]

I have a large set of cells with Text inside I need to sort into lists and in such a way that each list produced from the first omits one cell. The difficulty for me in particular is that the number of cells can vary. To illustrate simply below is a simplified set of cells with one word in each. Each subsequently generated list has a different omission. In this sample there are 4 Cells in the list Column Giving rise to four columns of lists, had the list been 20 cells long there would have been 20 generated.

Orig
List 1 2 3 4
---------------------------------------------
Cat Dog Mouse Bird Cat
Dog Mouse Bird Cat Dog
Mouse Bird Cat Dog Mouse
Bird

From the list on the left 4 lists are generated all with one different cell missing. To complicate matters the list can be any number of cells typically 20 but can be as high as 40 and is very time consuming.
Can anyone see a formula here or is it VBA, any suggestions help really appreciate.

 

[Peter_SSs]

Just realised that the formula given is still more complicated than necessary.
For the '24 model' try this instead in B1 copied across and down. I have assumed no gaps in the column A list.

=IF(OR($A2="",COLUMNS($B:B)>ROWS($A$1:$A$24)),"",INDEX($A$1:$A$24,ROWS(B$1:B1)+(ROWS(B$1:B1)>=COLUMNS($B:B))))