For i=1 to ubond(Array,1)
If Array(i,0)=ИскомоеЗначение then
НомерСтроки=i
end if
next i

Dim ArrSummHProc (1 to 32, 0 to 1), Arr1 (6) as Variant
'заполнение элементов массива Arr1
ArrSummHProc (1, 1) =Arr1

Sub Primer()
    Dim s_CFO As String
    s_CFO = "69."
    Cells(1, 12).Value = s_CFO
End Sub

Sub Кнопка5_Щелчок()
    Dim LastRow1 As Long, Arr1() As Variant
    LastRow1 = Worksheets("Data").Cells(Rows.Count, 2).End(xlUp).Row
    Worksheets("9.3").Activate
    Dim cell As Range
    For Each cell In [AD16:CG135]
        cell.Replace What:=123, Replacement:=LastRow1, SearchOrder:=xlByColumns, MatchCase:=True
    Next
End Sub

Public Function HProcentom(Tabnumber As String, Oklad As Currency, TypeDoplat As Long) As Currency
    Dim LastRow1 As Long, Arr1() As Variant, Summa As Currency, n As Long ', Arr2() As Variant
    
    Summa = Worksheets("DataAdd").Cells(2, TypeDoplat).Value 'Определяем сумму для разбивки
    
    LastRow1 = Worksheets("DataAdd").Cells(Rows.Count, TypeDoplat).End(xlUp).Row
    ReDim Arr1(0 To LastRow1 - 6)
    
    n = 5
    Do While n <= LastRow1 - 6
        Arr1(n - 5) = Str(Worksheets("AddTable").Cells(n + 1, TypeDoplat).Value) 'составляем массив табельных, на которые разбиваем
        n = n + 1
    Loop
    
    Dim i As Long, TN As String, Flag As Long, Arr2(0 To 11) As Currency
    TN = Str(Tabnumber)
    Flag = 0
    For i = 0 To UBound(Arr1) 'ищем совпадение табельного на входе с массивом разбивки
        If TN = Arr1(i) Then
            Flag = i
            i = UBound(Arr1)
            
        End If
    Next i
    
    ReDim Arr3(0 To LastRow1 - 6, 0 To 12)
    
    For n = 4 To LastRow1
        For i = 0 To 12
            If i = 0 Then
                Arr3(n - 4, i) = Worksheets("Data").Cells((n - 4) * 11 + n, 2).Value
            Else
                Arr3(n - 4, i) = Worksheets("Data").Cells(n, 14).Value
            End If
        Next i
    Next n
    
    Dim k As Long, SummaOkladov As Currency
    If Flag = 0 Then
        HerachProcentom = 0
    Else
        For n = 0 To UBound(Arr1)
            For i = 0 To UBound(Arr3, 1)
                If Arr1(n) = Arr3(i, 0) Then
                    For k = 1 To 12
                        SummaOkladov = SummaOkladov + Arr3(i, k)
                    Next k
                End If
            Next i
        Next n
    End If
    
    HProcentom = Summa / SummaOkladov * Oklad
    
End Function

        g = "AG" & kk
        g1 = "BY" & kk
        g = g&Chr(58)&g1
        Range(g).Select
        ActiveSheet.Paste

If StazProzent > 0 Then
                If StazProzent > 0 And StazProzent < 5 Then
                    StazProzent = 3
                Else
                    If StazProzent > 4 And StazProzent < 10 Then
                    StazProzent = 6
                    Else
                        If StazProzent > 9 And StazProzent < 15 Then
                        StazProzent = 12
                        Else
                            If StazProzent > 14 And StazProzent < 20 Then
                            StazProzent = 18
                            Else
                                If StazProzent > 19 And StazProzent < 25 Then
                                StazProzent = 23
                                Else
                                    If StazProzent > 24 Then
                                        StazProzent = 33
                                    Else
                                        StazProzent = 0
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
        End If

If ComboBox5.Value = ComboBox5.List(0) Then
            MonthNumb = 1
            
        Else
            If ComboBox5.Value = ComboBox5.List(1) Then
            MonthNumb = 2
            
            Else
                If ComboBox5.Value = ComboBox5.List(2) Then
                MonthNumb = 3
                
                Else
                    If ComboBox5.Value = ComboBox5.List(3) Then
                    MonthNumb = 4
                    
                    Else
                        If ComboBox5.Value = ComboBox5.List(4) Then
                        MonthNumb = 5
                        
                        Else
                            If ComboBox5.Value = ComboBox5.List(5) Then
                            MonthNumb = 6
                            
                            Else
                                If ComboBox5.Value = ComboBox5.List(6) Then
                                MonthNumb = 7
                                
                                Else
                                    If ComboBox5.Value = ComboBox5.List(7) Then
                                    MonthNumb = 8
                                    
                                    Else
                                        If ComboBox5.Value = ComboBox5.List(8) Then
                                        MonthNumb = 9
                                        
                                        Else
                                            If ComboBox5.Value = ComboBox5.List(9) Then
                                            MonthNumb = 10
                                            
                                            Else
                                                If ComboBox5.Value = ComboBox5.List(10) Then
                                                MonthNumb = 11
                                                
                                                Else
                                                    MonthNumb = 12
                                                    
                                                End If
                                            End If
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
    End If