How to Extract a Search Item from a Range and Move to a Desired Column in Excel with VBA

VBA Macro to Pull Out a Search Item from a Range and Move to the Desired Column in Excel
Sub SearchMultipleCol()

Dim x As Integer

Dim Y As Integer

Dim Z As Integer

Dim A As Integer

Dim c As String

c = InputBox("Enter Search String")

Z = InputBox("Enter Results Column No.")

For Y = 1 To 5

For x = 1 To 100

If InStr(LCase(Cells(x, Y)), LCase(c)) Then

A = A + 1

Cells(A, Z) = Cells(x, Y)

End If

Next x

Next Y

End Sub

Thanks,Tamatam