So I am trying to keep track of my budget using excel. Each month I paste various information, including expense descriptions, into a worksheet and assign the value in the descriptions category to an expense category and subcategory.

I am trying to find the matching description in a named range on Sheet8("Match") and then return the offset (1 column and 2 columns to the right of the match) to automatically populate the category and subcategory information.

I've put together the below code from some bits and pieces I've found online. However, the code only works ONCE. It returns the matching expense category and subcategory for the FIRST matching description in Range G13:G15, i.e., subsequent descriptions each have the same expense category/sub-category as the first item.

Any ideas on what I'm doing wrong? 

Sub FindCategory()
     
    Dim rFound As Range
    Dim sFind As Range
    Dim sAddr As String
     
    Set sFind = ActiveSheet.Range("G13:G18")
    
    With Sheet8.Range("Match")
        Set rFound = .Find(What:=sFind, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
            If Not rFound Is Nothing Then
                sAddr = rFound.Address
                Do
                    sFind.Offset(0, 1).Value = rFound.Offset(0, 1)
                    sFind.Offset(0, 2).Value = rFound.Offset(0, 2)
                    Set rFound = .FindNext(rFound)
                Loop While rFound.Address <> sAddr
            End If
    End With
     
End Sub