Auto insert row based on data

Hi,

is there away using VBA to do the following?

I have a list of data in column 'A' which may repeat the same text and will then be differnet. I want to insert a row before the text changes.....here is an example

so...column 'A' may look like this

Loop
Loop
Loop
Pool
Pool
Rate
Rate
Rate

I want to insert a row under each change....so it will look like this

Loop
Loop
Loop

Pool
Pool
Rate

Rate
Rate

any ideas???

thanks in advance