Cut and Paste macro

I need some much needed help. I have never made a macro before but was told that I could cut and paste this into excel to find and replace catagory headings in a large product list that will then be imported into a website. How do I do this exactly and would this formula work?

Thanks - Brent

Sub FindReplaceCategories()

    

    For Row = 1 To ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row

    

        Categories = ActiveSheet.Cells(Row, 2)

        
        Categories = Replace(Categories, "Beginners / Kids Mag", "Beginner Magic-EZ")

        Categories = Replace(Categories, "Broadcast Special", "Street Magic")

        Categories = Replace(Categories, "Card Deck", "Accessories;Regular Decks")

        Categories = Replace(Categories, "Card Magic", "Close-Up Magic;Card Magic")

        Categories = Replace(Categories, "Close-Up Magic", "Close-Up")

        Categories = Replace(Categories, "Collectible/Historic", "Collectables")

        Categories = Replace(Categories, "Comedy Magic", "Comedy Magic")

        Categories = Replace(Categories, "Easy To Demo (Shop)", "Easy to Perform")

        Categories = Replace(Categories, "Exclusive", "General Magic")

        Categories = Replace(Categories, "Fire Magic", "Fire Magic")

        Categories = Replace(Categories, "Gambling Magic", "Gambling Magic")

        Categories = Replace(Categories, "Gospel Magic", "Gospel Magic")

        Categories = Replace(Categories, "Magic Set", "Beginner Magic E-Z;Magic Kits")

        Categories = Replace(Categories, "Magic Staples / Cons", "Accessories")

        Categories = Replace(Categories, "Mentalism", "Mentalism")

        Categories = Replace(Categories, "Magic For Kids", "Magic For Kids")

        Categories = Replace(Categories, "Money Magic", "Close up;Money Magic")

        Categories = Replace(Categories, "Seasonal - Christmas", "Seasonal;Christmas")

        Categories = Replace(Categories, "Seasonal - Halloween", "Seasonal;Halloween")

        Categories = Replace(Categories, "Stage Magic", "Platform/Stage")

        Categories = Replace(Categories, "Street Magic", "Street Magic")

        Categories = Replace(Categories, "Recommended", "General Magic")

 

        ActiveSheet.Cells(Row, 2) = Categories

    

    Next Row

 

End Sub

Hi Brent, welcome to the forum.

You just registered and agreed to follow the Forum Rules...then broke one of the main ones on your first post. Oops.

GO back and edit the original post, click GO ADVANCED, highlight all the "code" then click on the # icon to wrap the code in [/code] tags.

==============

Then explain in words what your macro is supposed to do, which I think is:

Replace all the content of column B with existing categories to newly worded categories. Is that correct? If so, we can do that much simpler without looping one row at a time.

Fix that post above, then use the paperclip icon to post up a sample workbook and we can show you some fast ways.

Hi Smittymagic,

welcome to the forum. However, your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

I'll add the code tags for you this time, but I'll expect you to use them from now on.

regards

JB, simultaneous posting -- go ahead if you want ...

Thanks, Teylyn.

OK, Smitty, to keep this simple, create a Sheet2 and put the original categories in column A. Put the replacement categories in column B.

Then run this macro on your data sheet...

Option Explicit

Sub NewCategories()
Dim cOld, cNew, i As Long
cOld = Application.WorksheetFunction.Transpose(Sheets("Sheet2").Range("A:A").SpecialCells(xlCellTypeConstants).Value)
cNew = Application.WorksheetFunction.Transpose(Sheets("Sheet2").Range("B:B").SpecialCells(xlCellTypeConstants).Value)

For i = LBound(cOld) To UBound(cOld)
    Columns("B:B").Replace What:=cOld(i), Replacement:=cNew(i), LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Next i
    
End Sub