Sub RunMe() Dim fValue As Range Dim sColumn, ShName As String ShName = "Sheet2" sColumn = "A" svalue = InputBox("What is the EID to look for?:") Set fValue = Columns(sColumn).Find(svalue) If fValue Is Nothing Then MsgBox "No EID found" Else fValue.EntireRow.Copy _ Sheets(ShName).Range("A" & Rows.Count).End(xlUp).Offset(1, 0) End If End Sub
Member requests are more likely to be responded to.
Members can monitor the statuses of their requests from their account pages.
A CCM membership gives you access to additional options.