Sample code for a userform

Roy,
I found a code you wrote in 2010 (see below)and it's very close to what I'm looking for. I, however, am very new to VBA and although I have tried to modify your code to fit my needs I have come up empty. Can you assist? I want to get the data on Sheet1 arranged on Sheet2 in a specific way.

Option Explicit

Sub x()
Dim rCl As Range
Dim rSearch As Range
Dim rFound As Range
Dim sFind As String
Dim sFirstAddress As String

With Sheet1
Set rSearch = .Range(.Cells(2, 5), .Cells(.Rows.Count, 5).End(xlUp))
sFind = InputBox("Enter a value to find")
If sFind = Empty Then Exit Sub
Set rCl = rSearch.Find(sFind, LookIn:=xlValues)
If Not rCl Is Nothing Then
sFirstAddress = rCl.Address
Do
If rFound Is Nothing Then
Set rFound = rCl.EntireRow.Resize(1, .Columns.Count)
Else: Set rFound = Union(rFound, rCl.EntireRow.Resize(1, .Columns.Count))
End If
Set rCl = rSearch.FindNext(rCl)
Loop While Not rCl Is Nothing And rCl.Address <> sFirstAddress
End If
End With
With Sheet2
rFound.Copy .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0)
End With
End Sub