Inputbox to find value in column A,select row and move it under last input in col A.

Looking for macro to input the cell value (always column A) into inputbox then it selects the corresponding row, then move selected row under last input in column A.

Before last input might be blank cells.

Tried second part with this one, but does not work properly:

Sub CopySelection()
Dim xlSel As Excel.Range
Set xlSel = Excel.Application.Selection
xlSel.Copy Excel.Application.Cells(Excel.Application.Cells.SpecialCells(xlCellTypeLastCell).Row + 1, 1)

End Sub

Many thanks!

This will move the rows to the bottom of column A:

Please Login or Register  to view this content.

though it can be simplified

Please Login or Register  to view this content.

And to ask for a value to find:

Please Login or Register  to view this content.