VBA Copy/Paste Error

[MBM45445]

Hi,
I am working on a macro that searches for text, then cuts the row that contains the text and pastes it towards the top of the sheet. I get an error when it attempts to paste in the row that already contains the data (ex: if "Atlanta is already in row 15). Below is what I currently have coded. Any ideas?

Range("A1:J1").Select
Set f = Cells.Find(What:="Atlanta")
Rows(f.Row).Select
Rows(f.Row).Activate
Selection.Cut
Rows("15:15").Select
Selection.Insert Shift:=xlDown
Range("A16").Select

Range("A1:J1").Select
Set f = Cells.Find(What:="Boston")
Rows(f.Row).Select
Rows(f.Row).Activate
Selection.Cut
Rows("16:16").Select
Selection.Insert Shift:=xlDown
Range("A17").Select

 

[Fluff]

Hi & welcome to MrExcel.
How about

Set f = Cells.Find(What:="Atlanta")
If f.Row <> 15 Then
   f.EntireRow.Cut
   Rows(15).Insert Shift:=xlDown
End If
Range("A16").Select

 

[MBM45445]

Perfect! Thank you!

 

[Fluff]

You're welcome & thanks for the feedback.