Add Range Rows Into Listbox

I have a listbox that displays the results of a search (from A:A) but it only displays the data from column A in my sheet. I would like to know if it is possible to display the data for the entire row in my listbox, is this possible?

Sub Locate( Name As String, Data As Range)
Dim rngFind As Range
Dim strFirstFind As String
With Data
Set rngFind = .Find(Name, LookIn:=xlValues, lookat:=xlPart)
If Not rngFind Is Nothing Then
strFirstFind = rngFind.Address
Do
If rngFind.Row > 1 Then......................