Also is their any way to reference the Abbrv like "GA" located in Column (A1) and instead of replace the GA it goes to Column (B1) and reads "South"
Not exactly sure I understand, but maybe replace

Call ActiveSheet.UsedRange.Replace

with

Call ActiveSheet.Columns(1).Replace
Paul