celex,
Maybe this will get you started.
Sub aaa()
Dim wsSht1 As Worksheet, wsSht2 As Worksheet
Dim rFind As Range
Dim sVal As String
Dim lLastRow As Long
Set wsSht1 = Sheets("Sheet1")
Set wsSht2 = Sheets("Sheet2")
sVal = "a"
Set rFind = wsSht1.Cells.Find(What:=sVal, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Not rFind Is Nothing Then
wsSht2.Cells((wsSht2.Cells(Rows.Count, "A").End(xlUp).Row + 1), 1).Value = _
wsSht1.Cells(rFind.Row, 1).Value
End If
End Sub
Sheet1 and Sheet2 need to be changed to the names of your tabs. I also didn't know where you wanted to get you search value from so you will need to work on populating the sVal variable
Bookmarks