New VBA person - Code not working

Hi,

Using contributions from various snippets of code, I put togerther the following to swap first name last name to last name, first name.

Problem: Regardless of the Column that I identify, it only works for data in A1 (and even then, at times it fails). If anyone can help, please let me know. thanks, Karen. PS I may have attempted something too ambitious for my novice level but I wanted to give it a try (and it would be great for what I need to do at work).

Strangley enough, at least for me, even when I identify a column other than Column A, it will run using data from Column A instead of the identified Column

1. I use a local version of Excel 365
2. Excel spreadsheets are also held on local drive
3. Windows - updated
4. I need a macro that:
   1. swaps first name last name to last name, first name
   2. ignores Row 1 because that has header info
   3. I need it to loop until there is no more data in the identified column

Here's what I stitched together and again, I may have tried something too ambitious for my current skill level so greatly appreciate any insights . . . thanks, Karen

Sub Reorder_To_LastName_FirstName()

    Dim rng As range

    Dim i As Long

    Dim strName As String

    Dim strFirstName As String

    Dim strLastName As String

    Dim arrNames() As String

' Replace "A1" with the first cell in the column you want to use your name column

' Replaced "A1" with "C1:"

Set rng = range("C1").CurrentRegion

' Identify the row with the first name entry

' For this purpose, first name is in row 2

    For i = 2 To rng.Rows.count

' Verify that the row has data

      If rng.Cells(i, 1).Value <> "" Then

' Pull full name

        strName = rng.Cells(i, 1).Value

' Split the name based on location of space

        arrNames = Split(strName, " ")

' Allocate first position to be the last name in array and first name to be second element in the array

        strLastName = arrNames(0)

        strFirstName = ""

' Loop

        For X = 1 To UBound(arrNames)

          strFirstName = strFirstName & " " & arrNames(X)

        Next X

' Trim to remove unneeded spaces

        strFirstName = Trim(strFirstName)

        strLastName = Trim(strLastName)

' Set order of Last Name, First Name

        rng.Cells(i, 1).Offset(0, 2).Value = strLastName & ", " & strFirstName

        End If

      Next i

    End Sub