Question on creating a macro for repeat cell text

[ExcelNewbieMacros]

I am going to do my best to describe my question. Don't kill me as I am new to Excel lingo. I have attached a photo to better help me describe my question.

Here is my Excel spreadsheet that I use and the categories I created. The description is always what my bank categorizes the charges as, and they look similar to how they are listed. What I want is for a macro I can run where when it encounters the word "Macy"(just an example) in the description field. It will then automatically change the Payee/Remitter and the Payee Category to what is listed in the picture (shorted to Macy and added Retail). I have several repeat payments that are similar and want to automate the process. Soooo in short, I want to run a certain action (filling in Payee/Remitter and payee category) every time it sees a certain keyword in description. I know I would have to have it set for each keyword.

I hope some of that makes sense. If it doesn't or if what I am asking for is not possible that is also helpful to know.

Thanks for reading.

 

[jolivanes]

Re: filling in Payee/Remitter and payee category
Where? Another Sheet? A few Columns to the right? At the bottom? In a Column with a specific Header?
Or just filter on a value.

 

[ExcelNewbieMacros]

Re: filling in Payee/Remitter and payee category
Where? Another Sheet? A few Columns to the right? At the bottom? In a Column with a specific Header?
Or just filter on a value.

Were you able to see the attached photo? After the row marked "Description", I want it to condense it into the next column marked "payee/Remitter" and the next column after that marked "payee Category".

 

[jolivanes]

OK, so if the desription Column has LOWES, under PAYEE/REMITTER you want Lowe's. No problem.
In your example it shows COURTHOUSE FITNE. Is this always going to show that like that or might it also be COURTHOUSE FITN if the reference number is longer?
You need to give a relation between when to use Retail, when to use Personal Care and whatever other categories you want.
Can you have another sheet, hidden maybe, where you have the relations etc in a range?

 

[jolivanes]

Sub Start_Maybe()
Dim myArr, c As Range, i As Long
myArr = Sheets("Sheet2").Cells(1).CurrentRegion.Value
    For Each c In Range("D2:D" & Cells(Rows.Count, 4).End(xlUp).Row)
        For i = LBound(myArr) To UBound(myArr)
            If InStr(c, myArr(i, 1)) <> 0 Then
                With c
                    .Offset(, 1).Value = myArr(i, 2)
                    .Offset(, 2).Value = myArr(i, 3)
                End With
                Exit For
            End If
        Next i
    Next c
End Sub

 

[jolivanes]

Can I delete the workbook made to test your problem?