Show full row in userform search|VBA & Macros|Excel Forum|My Online Training Hub

I used the code in the tutorial below to make a search box for my table. Everything runs fine except the results. Rather than showing the full row, it is only showing the result in column A. I made sure the names of columns, search box, text box etc. all match so not too sure where i'm going wrong. 

In the downloaded spreadsheet it shows columns A - D, i need it to show A - G and from what i can tell it should be working. Any help would be appreciated. 

https://www.myonlinetraininghu.....rm-listbox - link to tutorial 

My code for search button:

Private Sub SearchBtn_Click()
Dim SearchTerm As String
Dim SearchColumn As String
Dim RecordRange As Range
Dim FirstAddress As String
Dim FirstCell As Range
Dim RowCount As Integer

' Display an error if no search term is entered
If Machine.Value = "" And SerialNumber.Value = "" And Location.Value = "" And Company.Value = "" And ContactNumber.Value = "" And PersonToContact.Value = "" And Email.Value = "" Then

MsgBox "No search term specified", vbCritical + vbOKOnly
Exit Sub

End If

' Work out what is being searched for
If Machine.Value <> "" Then

SearchTerm = Machine.Value
SearchColumn = "Machine"

End If

If SerialNumber.Value <> "" Then

SearchTerm = SerialNumber.Value
SearchColumn = "Serial Number"

End If

If Location.Value <> "" Then

SearchTerm = Location.Value
SearchColumn = "Location"

End If

If Company.Value <> "" Then

SearchTerm = Company.Value
SearchColumn = "Company"

End If

If ContactNumber.Value <> "" Then

SearchTerm = ContactNumber.Value
SearchColumn = "Contact Number"

End If

If PersonToContact.Value <> "" Then

SearchTerm = PersonToContact.Value
SearchColumn = "Person To Contact"

End If

If Email.Value <> "" Then

SearchTerm = Email.Value
SearchColumn = "Email"

End If
Results.Clear

' Only search in the relevant table column i.e. if somone is searching Location
' only search in the Location column
With Range("Table1[" & SearchColumn & "]")

' Find the first match
Set RecordRange = .Find(SearchTerm, LookIn:=xlValues)

' If a match has been found
If Not RecordRange Is Nothing Then

FirstAddress = RecordRange.Address
RowCount = 0

Do

' Set the first cell in the row of the matching value
Set FirstCell = Range("A" & RecordRange.Row)

' Add matching record to List Box
Results.AddItem
Results.List(RowCount, 0) = FirstCell(1, 1)
Results.List(RowCount, 1) = FirstCell(1, 2)
Results.List(RowCount, 2) = FirstCell(1, 3)
Results.List(RowCount, 3) = FirstCell(1, 4)
Results.List(RowCount, 4) = FirstCell(1, 5)
Results.List(RowCount, 5) = FirstCell(1, 6)
Results.List(RowCount, 6) = FirstCell(1, 7)
RowCount = RowCount + 1

' Look for next match
Set RecordRange = .FindNext(RecordRange)

' When no further matches are found, exit the sub
If RecordRange Is Nothing Then

Exit Sub

End If

' Keep looking while unique matches are found
Loop While RecordRange.Address <> FirstAddress

Else

' If you get here, no matches were found
Results.AddItem
Results.List(RowCount, 0) = "Nothing Found"

End If

End With
End Sub