Code:
'~~> Search srchstring if it already exists
Set aCell = ws.Cells.Find(What:=srchctring, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

If Not aCell Is Nothing Then
'~~> If Found
'~~>Your code here for copy and paste special
Else
'~~> If not found
MsgBox "Not Found"
End If
I've been looking at this code, but the find srchstring and the rest of the arguments don't make sense to me

do i have to hard-code each thing i would ever want to search for? or how can i use the value input into a textbox, like the ones I just learned in the above posts, to be input into the find string.