Insert Function with Macro

Hello all,

I use a certain function enough on my excel sheets, I no longer want to copy and paste but to just use a macro to insert my function. The original data is formatted like this:

FirstName LastName
FirstName LastName
FirstName LastName

The function I am using is:
=CONCATENATE(MID(A1,FIND(" ",A1)+1,256),", ",LEFT(A1,(FIND(" ",A1,1)-1)))

The function turns my original data into:

LastName, FirstName
LastName, FirstName
LastName, FirstName

I would like to come up with a simple macro that runs a for each loop that inserts the function in column B based on column A. If you know of an easier way, I am all ears!

Thank you.

Hi lonesoac0,
try it

Sub ttt()
Dim x, i&, sp
With Range("A1", Cells(Rows.Count, 1).End(xlUp))
    x = .Value
    For i = 1 To UBound(x)
        sp = Split(Replace(x(i, 1), ",", ""))
        x(i, 1) = sp(1) & ", " & sp(0)
    Next i
    .Value = x
End With
End Sub

I ran the code you gave me and I got the error code of: "Run-time error '13' Type Mismatch". I ran the debugger and it highlighted: "For i = 1 To UBound(x)"

Ok, so I decided to play with it a little more and I inserted two FirstName LastName and it worked just fine. Gracias.