Hi, I'm fairly new to macros and need some help getting a loop to work properly.

I'm trying to use the macro to clean up a spreadsheet exported from another system.

I need to find all occurrence of CUSTOMER: within a column. Each time this is found, I need to insert a blank line above it, copy the contents from the cell to the right into the cell CUSTOMER: was in and bold the text.

I can make it work fine one instance at a time. I can keep running the macro until all instances have been found, but I want it to do this automatically.

I can't get it to loop no matter what I've tried. Here's what I have so far:


ActiveCell.Columns("A:A").EntireColumn.Select
Selection.Find(What:="CUSTOMER:", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.Cut
ActiveCell.Offset(0, -1).Range("A1").Select
ActiveSheet.Paste
Selection.Font.Bold = True
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Insert Shift:=xlDown

I appreciate any help anyone can give me.

Thanks