VB Code to create DICT

Hi Riz,

Try this:

Sub RizDict(): Dim wd As Worksheet, d As Long, S As String
Set wd = Sheets("Debit")
For d = 2 To wd.Range("C" & Rows.Count).End(xlUp).Row
Select Case Range("C" & d).Value
Case "STREAM GEORGIA G BILL PAY 4001573008"
S = "Utilities:Gas"
Case "FOODSERVICE VENDOR PAY 072691182550000"
S = "Cost of Goods:USFoods"
End Select
Range("D" & d).Value = S: S = ""
Next d: Columns(4).AutoFit
End Sub

I put the table in "H:I" and Named it "RizTable" - let me know if that's OK

Sub RizTable(): Dim d As Long, S As String
Dim wd As Worksheet: Set wd = Sheets("Debit")
    wd.Columns("C:D").Copy wd.Range("H1")
    Application.CutCopyMode = False
    wd.ListObjects.add(xlSrcRange, _
    Range("$H:$I"), , xlYes).Name = "RizTable"
End Sub

Sub RizDictTable(): Dim d As Long, S As String
Dim wd As Worksheet: Set wd = Sheets("Debit")

RizTable

For d = 2 To wd.Range("H" & Rows.Count).End(xlUp).Row
Select Case Range("H" & d).Value
Case "STREAM GEORGIA G BILL PAY 4001573008"
S = "Utilities:Gas"
Case "FOODSERVICE VENDOR PAY 072691182550000"
S = "Cost of Goods:USFoods"
End Select
Range("I" & d).Value = S: S = ""
Next d: Columns(9).AutoFit
End Sub

Hi Riz,
I'll look at it in the morning and let you know my questions then

This is just a first draft. No declaring variables, no sheetnames ...

I think there equally fast.

Sub ba()
    t = Timer
    sn1 = Range("C2", Range("C" & Rows.Count).End(xlUp)).Resize(, 2)
    sn2 = Range("H2").CurrentRegion.Value
    For i = 1 To UBound(sn1)
        For ii = 2 To UBound(sn2)
            If sn1(i, 1) = sn2(ii, 1) Then sn1(i, 2) = sn2(ii, 2): Exit For
        Next
    Next
    Range("c2").Resize(UBound(sn1), 2) = sn1
    MsgBox (Timer - t) * 10
End Sub

Sub ba2()
t = Timer
    sn1 = Range("C2", Range("C" & Rows.Count).End(xlUp)).Resize(, 2)
    sn2 = Range("H2").CurrentRegion.Value
    With CreateObject("scripting.dictionary")
        For i = 2 To UBound(sn2)
            .Item(sn2(i, 1)) = sn2(i, 2)
        Next
        For i = 1 To UBound(sn1)
            If .exists(sn1(i, 1)) Then sn1(i, 2) = .Item(sn1(i, 1))
        Next
    End With
    Range("c2").Resize(UBound(sn1), 2) = sn1
    MsgBox (Timer - t) * 10
End Sub