¡Como hacer una macro para hacer credenciales?

Quiero imprimir tarjetas de membresia para cada cliente:

1.- Quiero tomarle una foto, llenar un formulario (nombre, telefono, domicilio y correo electronico)

2.- Y que estos datos se guarden en un base de datos (hoja de exel)

3.- Y después que que estos datos se ordenen para darla a apariencia de una tarjeta o carnet con la foto del cliente y un codigo de barras. Para poder imprimirla en el momento

La mayoría ya lo logre pero no puedo hacer el punto 3

Option Explicit
Sub registrar()
Load frm_Clientes
Sheets("clientes").Activate
frm_Clientes.Show
End Sub

Function nCliente(nombre As String) As Integer
Application.ScreenUpdating = False
Sheets("Clientes").Activate
Range("A2").Activate
nCliente = 0
Do While Not IsEmpty(ActiveCell)
If nombre = ActiveCell Then
nCliente = ActiveCell.Row
End If
ActiveCell.Offset(1, 0).Select

Loop
Application.ScreenUpdating = True
End Function

Sub Aviso(msg As String)
frm_Clientes.lbl_Wait.Caption = msg
End Sub