Trim Formula Not Working in Macro

[tropics123]

I appreciate any help on this. Not sure why but the "Trim" formula I'm using in this macro doesn't seem to work. I'm trying to add this formula to the entire column A and it's reading names from column B.

Here's what I have:

Sub AddFormula()
Sheets("Loan_Info").Select
Range("A1:A" & LastRow).Formula = "=Trim(B1)"
End Sub

The macro stopped running when it hits the formula. Help please!!

 

[Fluff]

You haven't specified what LastRow is.
Try

Range("A1" & Range("B" & Rows.Count).End(xlUp).Offset(, -1)).Formula = "=Trim(B1)"

 

[Joe4]

Where have you defined LastRow?