У меня есть 2 сущности в моей базе данных, но Hibernate возвращает 6 из них -.-

Dim f As Range, KeyCells As Range

With ActiveSheet

    Set f = .Rows(5).Find(What:="Added Info/Options", lookat:=xlWhole)
    If Not f Is Nothing Then
        Set f = f.Offset(1, -1)
        Set KeyCells = .Range(f, .Cells(.Rows.Count, f.Column).End(xlUp))
    Else
        Msgbox "Required header not found!"
    End If

End With