Macro para buscar mediante dos inputbox 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 quincen no, es decir,

puede exisitr 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 despligue 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