Removing first six characters

I have upto 5 lines of text all of which I wish to check and if the row IsNotNull then remove the first six characters of the sentence.

If the cell is empty, move onto the next one and so on. The cells in question are ; A$45$ to A$49$ inclusive.

I would like to do this in VBA

Thanks

Toni Chaffin aka Talisa