VBA for sorting lines leaving out A, AN and The

I'm new to Excel and haven't much of a clue on writing in VBA, but I was wondering if there was a way to have the words A, AN and THE ignored when the start a cell. I deal with the title of books and have written this little formula in a column and hide it, but if there was a different way using VBA on the column itself it would be very helpful for me.

Here are my column heads, "TitleInfo = Title,Publisher,Year" joined together

Title Title-A Publisher Year Current TitleInfo


In Title A I wrote this Formula:
=IF(A5="","",IF(LEFT(A5,2)="A ",CONCATENATE(MID(A5,3,500),", A"),IF(LEFT(A5,3)="An ",CONCATENATE(MID(A5,5,500),", An"),IF(LEFT(A5,4)="the ",CONCATENATE(MID(A5,5,500),", The"),A5))))

As I said it works, but any suggestion would be greatly appreciated.