Set c = .Find(ThisWorkbook.Sheets("Транзакции").Cells(1, 1), LookIn:=xlFormulas, LookAt:=xlWhole, SearchDirection:=xlPrevious, SearchFormat:=False)

Private Sub Поиск_транзакций()
    Dim vValueToSearch As Variant
    Dim sFirstResult As String
    Dim lLastRow As Long
    Dim Rng As Range
    
    With ThisWorkbook.Worksheets("Транзакции")
        If .FilterMode = True Then .ShowAllData 'если на листе стоит Автофильтр, то снимаем его
        .Columns(3).NumberFormat = "General"
        lLastRow = .Cells(.Rows.Count, 3).End(xlUp).Row
        vValueToSearch = .Cells(1, 1) 'что будем искать
        With .Range("C2: C" & lLastRow)
            Set Rng = .Find(vValueToSearch, LookIn:=xlFormulas, LookAt:=xlWhole, SearchDirection:=xlPrevious, SearchFormat:=False)
            If Not Rng Is Nothing Then
                sFirstResult = Rng.Address
                Do
                    Set Rng = .FindNext(Rng)
                    If Rng Is Nothing Then Exit Do
                Loop While Rng.Address <> sFirstResult
            End If
        End With
    End With
End Sub