Macro to re-Arrange and insert data based on 2 columns values

[hisham2k11]

I need help in achieving the below scenario using Macro or any other alternative:
I have data in a sheet whose cloumn A contains teams in random order and ColumnB contains its members.
ColumnA CloumnB
team1 Monty1
team1 Javier
team2 Alex
team3 Manish
team1 Daniel
team2 Howdy
team1 Ballex
team1 hunter
team2 Banter
team2 Carter
team3 Lord
team4
team3 Sandy
team3 Zoro
team5 boss

I have a second sheet that contains many columns full of data of which there is one columnA called teams which contains teams.
I need the data to be inserted in sheet1 in just a single column where each Team will be followed by its members just below it.
ColumnA
team1
Monty1
Javier
Daniel
Ballex
hunter
team2
Alex
Howdy
Banter
Carter
team3
Manish
Lord
Sandy
Zoro
team4
team5
boss