trouble with vba code for Find, Insert copied cells and find next

[jgelbach]

So this is the code i have so far. what i am trying to do is in Column E find the Word Florida. Every time it finds the word florida i want it to insert 6 rows and paste the values from Cells AP1:AP6 in the inserted rows after florida. I want it to do this until they find the last Florida in the sheet. Any help would be appreciated

Sub findinsertpaste()
'
' findinsertpaste Macro
'

'
Do while
Columns("E:E").Select
Selection.Find(What:="Florida", After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Selection.EntireRow.insert
Selection.EntireRow.insert
Selection.EntireRow.insert
Selection.EntireRow.insert
Selection.EntireRow.insert
Selection.EntireRow.insert
Application.CutCopyMode = False
Range("AP1:AP6").Copy
ActiveCell.PasteSpecial xlPasteValues

Until Range("E:E") = " "

End Sub

[protonLeah]

Please wrap your code with code-tags:
Rule #3. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Select your code and click the [#] button at the top of the post window (if you are editing an existing post, press Go Advanced to see the [#] button).

[jolivanes]

Does Column E have "Florida" anywhere in the first 6 Rows?
If so, copying will not have the result you want.

[protonLeah]

@jolivanes: What kind of forum will we end up with when no one follows the rules? I asked for code tags and you should have waited for compliance.

[jgelbach]

I apologize. i am new here. I read forum rule # 3 and don't quite understand. would you mind explaining what you mean by code tags? that way i know how to be compliant in the future. it would be greatly appreciated.

[jolivanes]

@protonLeah
Apologies. Will wait next time.

@jgelbach
Have a look here.

http://www.excelforum.com/misc.php?do=bbcode

Close to the end under the header "Code"

[jgelbach]

[QUOTE=jgelbach;2741542]So this is the code i have so far. what i am trying to do is in Column E find the Word Florida. Every time it finds the word florida i want it to insert 6 rows and paste the values from Cells AP1:AP6 in the inserted rows after florida. I want it to do this until they find the last Florida in the sheet. Any help would be appreciated

Please Login or Register  to view this content.

[jolivanes]

Not a very sophisticated code.
Hopefully someone will come by with a better code

Please Login or Register  to view this content.

[jgelbach]

thank you so kindly for your help.