Option Explicit

Public arrTN
Public arrFIO
Public arrPod

Private Sub Worksheet_Activate()
Dim i As Integer
Dim j As Integer
Dim count As Integer

'считаю количество строк в которых число в ячейке >0
For i = 6 To 18
    If Range("I" & i) > 0 Then
        count = count + 1
    End If
Next

Range("L6:L18").ClearContents

ReDim arrTN(count)
ReDim arrFIO(count)
ReDim arrPod(count)

j = 1
For i = 1 To 18
    If Range("I" & (i + 5)) > 0 Then
            arrFIO(j) = Range("B" & (i + 5)).Value
            arrTN(j) = Range("A" & (i + 5)).Value
            arrPod(j) = Range("I" & (i + 5)).Value
            j = j + 1
    End If
Next i

Range("L6:L13").Value = arrFIO
Range("M6:M13").Value = arrTN
Range("N6:N13").Value = arrPod
End Sub