Function PriceDop(DistrID As Long, AptekaID As Long, Kolumn As Integer, DopKol As Integer)
  MsgBox DistrID & Chr( 10 ) & AptekaID & Chr( 10 ) & Kolumn & Chr( 10 ) & DopKol
End Function

Private Sub DistrPriceDopZena()

Dim DistrID As Long
Dim AptekaID As Long
Dim Kolumn As Integer
Dim DopKol As Integer

For i =  1  To ActiveCell.SpecialCells(xlLastCell).Row
  Worksheets("Данные").Select
    If Cells(i,  5 ).Value <> "" Then
        DistrID = Cells(i,  5 ).Value
        AptekaID = Cells(i,  7 ).Value
        Kolumn = Cells(i,  10 ).Value
        List = "Distr_" & DistrID: Worksheets(List).Select
        DopKol = ActiveCell.SpecialCells(xlLastCell).Column +  1 
        MsgBox i & Chr( 10 ) & List & Chr( 10 ) & DopKol & Chr( 10 ) & AptekaID & Chr( 10 ) & Kolumn
        PriceDop(DistrID , AptekaID, Kolumn , DopKol)
     End If

Next i

End Sub

 PriceDop(DistrID , AptekaID, Kolumn , DopKol)

PriceDop DistrID , AptekaID, Kolumn , DopKol