Columns("AN").Insert Shift:=xlRight
LastRow = Range("E4:E").Cells.Find("*", _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
' MsgBox "The Last Non-Blank Row Is " & LastRow
Range("AN4:AN" & LastRow) = "*"
I keep getting the same error, and I don't know...