How do I write a function that allows me to automatically move the entire contents of one cell if a "@" symbol exists to the cell next to it?

Example...

A1 has @New York

Determine if A1 has a "@" symbol = True

If True then move A1 to B1

Thanks.