Activating the next column cell from the last active cell

Maybe

Dim FndCell As Range
Dim FndWrd As String
Dim LastRow As Long

FndWrd = Application.InputBox("Enter item to find!!", "Find!", , , , , , 2)
LastRow = Cells(Rows.Count, "H").End(xlUp).Row
Set FndCell = Range("A1:BP1").Find(FndWrd, lookat:=xlWhole, LookIn:=xlValues)
    If Not FndCell Is Nothing Then
        Range(FndCell.Address, Cells(LastRow, FndCell.Column)).Copy _
        Destination:=Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Offset(1)
    End If

Change the inputbox to your code for the form

VBA Noob