Move Rows To Worksheets Based On Cell Text In Row

I download our monthly bank transactions (.csv). I have a workbook with sheets named for each creditor or expense.

I would like move each row, based on the specific word in a cell row, to the specific worksheet.

Here are some typical transactions in the Description column:

Some are specific:
1/7/2008ACH WEB-SINGLE 9085863 VONAGE AMERICA VONAGE
“Moved to the Vonage worksheet.”

Others are not so obvious:
2/1/2008CHECK CARD PURCHASE XXXXX4636 BOSTON MARKET #0450 GREENSBURG PA
“Moved to the Eat Out worksheet.”

2/21/2008CHECK CARD PURCHASE XXXXX4636 ASPCAPS XXXXX0028 MD
“Moved to the ASPCAPS worksheet.”

2/19/2007POS PURCHASE POS54309901 0014264 PITTSBURGH ST GREENSBURG PA
“Moved to the Grocery worksheet.”

I was able to find the following while during a Search:

Move Cells Containing Specific Word In Column To New Sheet

The question was answered, in addition to Dave Hawley, by Bill Rockenbach who inserted the following code - “Sub FindWord()”

Option Explicit
Sub FindWord()
Dim Sentences
Dim Word As String
Dim i As Long
Dim iWordPos As Integer
Dim lRow As Long
Dim sWord As String

If this is a possibility for what I'm looking for, I’m not sure how to implement it into my situation.