Private Sub reg_Click()
Dim Ctr As MSForms.Control
For Each Ctr In UserForm1.Controls
    If Mid(Ctr.Name, 1, 5) = "fio_p" Then
        'Здесь действия с контролами fio_p1,2,3
    End
Next
End Sub

Private Sub reg_Click()
On Error Resume Next

For fio_i = 1 To 3
    If Me.Controls("fio_p" & fio_i).Value <> "" Then
        For res_i = 1 To 3
            If Me.Controls("res" & res_i).Value <> "" Then
                lLastRow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1 'последняя непустая строка в таблице
                Rows(lLastRow + 1).Select
                Cells(ActiveCell.Row, 1).Value = "0" & (Cells(ActiveCell.Row - 1, 1).Value + 1) 'Порядковый рег.номер
                Cells(ActiveCell.Row, 2).Value = Me.Controls("fio_p" & fio_i).Value
                Cells(ActiveCell.Row, 3).Value = Application.WorksheetFunction.VLookup(Me.Controls("fio_p" & fio_i).Value, Range("polz"), 2, False)
                Cells(ActiveCell.Row, 4).Value = Me.Controls("res" & res_i).Value
                Cells(ActiveCell.Row, 5).Value = Application.WorksheetFunction.VLookup(Me.Controls("res" & res_i).Value, Range("база_ресурс"), 2, False)
                Cells(ActiveCell.Row, 6).Value = Application.WorksheetFunction.VLookup(Me.Controls("res" & res_i).Value, Range("база_ресурс"), 3, False)
            End If
        Next
    End If
Next

With ActiveSheet.ListObjects("база") 'увеличиваем таблицу до последней заявки
    .Resize .Range.Resize(lLastRow + 1)
End With

lLastRow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1 'последняя непустая строка в таблице
Cells(lLastRow + 1, 1).Select
Unload UserForm1
End Sub