If all you want to do is sort alphabetically but across one row instead of in a column, I think this code should work for you. I just pasted your data into a worksheet for testing, so you'll probably need to revise the actual sort range. Hope that helps!
'Crafted 28 Jul 2020 by Wookiee at Mr Excel
.SortFields.Add Key:=Range("A1:H1"), _
.Orientation = xlLeftToRight