Macro búsqueda con dos datos solicitados

Tengo la siguiente información
A B C D E F
RFC Nombre Dependencia Año Quincena Descuento

En donde aparecen los nombres y RFC de los clientes que solicitaron un
préstamo. Por lo cual los nombres puede repetirse pero el año y la
quincena no, es decir, puede existir Aldo Leal 2012 quincena 1,
Aldo Leal 2012 quincena 16. Llevo como dos semanas intentando un macro
en el cual mediante un InputBox me solicite el nombre del cliente y
mediante otro me solicite el año y en un cuadro de mensaje me despliegue
el nombre del cliente, la dependencia el año las quincena que se
encontraron y los descuentos correspondientes a estas quincenas. Esto es
lo que he intentado pero no logro dar pie con bola a lo que necesito.
Option Explicit
Sub Buscar()
Dim rng As Range, rng2 As Range, msg As String
With Columns("A:A")
Set rng = .Find( _
What:=InputBox("Introduce el nombre del cliente: "), _
After:=.Cells(1), _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext)
End With
With Columns("B:B")
Set rng2 = .Find( _
What:=InputBox("Introduce el año: "), _
After:=.Cells(1), _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext)
End With
If Not rng And rng2 Is Nothing Then
With rng And rng2
msg = msg & "NOMBRE: " & .Value & Chr(13)
msg = msg & "DEPENDENCIA: " & .Offset(, 1).Value & Chr(13)
msg = msg & "AÑO: " & .Offset(, 2).Value & Chr(13)
msg = msg & "QUINCENA: " & .Offset(, 3).Value & Chr(13)
msg = msg & "MONTO: " & .Offset(, 4).Value
MsgBox msg
End With
Else
MsgBox "No se ha encontrado el cliente solicitado."
End If
End Sub