Private Sub butt_ok_Click()
Dim arrData() As Variant
......
' заполняю элементы масива данными
j =  1 
With Worksheets("data").Range("d2:d100")
    Set c = .Find(Kod_val.Column( 0 ), LookIn:=xlValues)
    If Not c Is Nothing Then
        FirstAddress = c.Address
        Do
           ReDim arrData( 1  To j,  1  To  2 ) As Variant
           arrData(j,  1 ) = c.Offset( 0 ,  2 ).Value
           arrData(j,  2 ) = c.Offset( 0 ,  3 ).Value
           Set c = .FindNext(c)
           j = j +  1 
        Loop Until c.Address = FirstAddress
    End If
End With
'и затем передаю этот массив в качестве параметра в процедуру Opis.
 Call opis(Otd_From.Value, Otd_To.Value, Kod_val.Column( 0 ), Kod_val.Column( 1 ), Range("Date_Op"), Range("CursCB"), arrData)
...
End Sub

' Процедура находится в модуле Module1
Sub opis(nameOtdFrom, nameOtdTo, kodVal, nameVal, dateOp, curscb, ByRef arrData As Variant)
...
[color=red]' и вот здесь, выводится только последний элемент массива, первые элементы пустые!!!!!![/color]
For i = LBound(arrData,  1 ) To UBound(arrData,  1 )
    MsgBox i & ",  " & arrData(i,  1 ) & ",  " & arrData(i,  2 )
Next

End Sub

Private Sub butt_ok_Click()
Dim arrData() As Variant
' Процедура находится в модуле Module1
Sub opis(nameOtdFrom, nameOtdTo, kodVal, nameVal, dateOp, curscb, ByRef arrData() As Variant)
...
End Sub