Определение цифрового диапазона на листе - VBA

Формулировка задачи:

Подскажите пожалуйста, на листе есть цифровой диапазон со значениями (не фиксированный), как его определить? есть макрос, при котором приходится визуально определять цифровой диапазон, а затем указывать, а хотелось бы автономно, файл с макросом прилагаю

                    Листинг программы
                
 
                        
                          
                    
Sub макрос3()
 
    Range("d4:h26").Select
    Selection.FormatConditions.AddIconSetCondition
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1)
        .ReverseOrder = False
        .ShowIconOnly = False
        .IconSet = ActiveWorkbook.IconSets(xl3Arrows)
    End With
    With Selection.FormatConditions(1).IconCriteria(2)
        .Type = xlConditionValueNumber
        .Value = 1
        .Operator = 7
    End With
    With Selection.FormatConditions(1).IconCriteria(3)
        .Type = xlConditionValueNumber
        .Value = 1
        .Operator = 7
    End With
End Sub

Решение задачи: «Определение цифрового диапазона на листе»

textual
                            Листинг программы 
                        
 
                        
                          
                    
    With Cells.Find("чел.1").CurrentRegion
        .FormatConditions.AddIconSetCondition
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        With .FormatConditions(1)
            .ReverseOrder = False
            .ShowIconOnly = False
            .IconSet = ActiveWorkbook.IconSets(xl3Arrows)
        End With
        With .FormatConditions(1).IconCriteria(2)
            .Type = xlConditionValueNumber
            .Value = 1
            .Operator = 7
        End With
        With .FormatConditions(1).IconCriteria(3)
            .Type = xlConditionValueNumber
            .Value = 1
            .Operator = 7
        End With
    End With