Find Values From Column In Another & Copy All Occurrences

I have created (pieced) together a macro to search through a list and paste the results in another worksheet it works fine but i can't get it to loop through the list.

Sub Findall()
Dim y As Long
Dim starta As String
Dim tr As Long, tc As Long
Dim sr As Long, sc As Long
Dim s As Worksheet, t As Worksheet
Dim SourceCell As Range
'Setup
Application. ScreenUpdating = False
Set t = Sheets("Target Sheet")
Set s = Sheets("Search sheet")
Set SourceCell = ActiveCell
Do While IsEmpty(ActiveCell) = False
Counter = 1
'Get last used row in Target Sheet
t.Select..........................