Option Base 1
Sub podshet()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Dim lastRow_ree, lastRow_navi, f, f1 As Long

lastRow_ree = wsOsn_ree.Cells(Rows.Count, 3).End(xlUp).Row
lastRow_navi = wsNavigacia.Cells(Rows.Count, 3).End(xlUp).Row

ReDim arrOsn_ree(1 To lastRow_ree - 1, 1 To 139)

arrOsn_ree = wsOsn_ree.Range(wsOsn_ree.Cells(2, 1), wsOsn_ree.Cells(lastRow_ree, 139))


ReDim arrnavi1(1 To lastRow_navi - 1, 1 To 18)

arrnavi1 = wsNavigacia.Range(wsNavigacia.Cells(2, 1), wsNavigacia.Cells(lastRow_navi, 18))


Dim arrnavi_perv()


f3 = 0
For f = 1 To UBound(arrnavi1)
    For f1 = 1 To UBound(arrOsn_ree)
        If arrnavi1(f, 15) <> "" And arrnavi1(f, 3) = arrOsn_ree(f1, 3) And arrnavi1(f, 15) = arrOsn_ree(f1, 8) And arrnavi1(f, 18) = arrOsn_ree(f1, 6) Then
            f3 = f3 + 1
            For f2 = 1 To 139
                ReDim Preserve arrnavi_perv(1 To f3, 1 To f2)
                arrnavi_perv(f3, f2) = arrOsn_ree(f1, f2)
            Next
        End If
    Next
Next

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long

Public Function Диап_Увеличить(ByRef rng As Range, ByVal str As String) _
      As Variant    ' Тестом НЕ покрыта
' rng будет увеличиваться
Dim Cell_Last As Range, Cell_Next As Range
   Set Cell_Last = rng.End(xlDown) ' что то не так в этой строчке
   Set Cell_Next = Cell_Last.Offset(1, 0)

   Cell_Next.Value = str
   Set Dest = rng.CurrentRegion
End Function