Transfer Every Matched Entry's Entire Row to a Different Sheet

I want to take the horse (Column T) from sheet 'This week', match it to horses in column T in sheet 'All' and then paste every instance/match from sheet 'ALL' into 'Extracted.'

Note: this list is huge. There are over 30,000 entries in sheet 'ALL'. Usually in sheet 'ThisWeek' there is a thousand.


the code below does what I need it to other than two things.

1. It does not past the entire row. I need it to go all the way up to and including column JF.

2. It does not paste every instance of the horse (Column T) in sheet 'This Week' from sheet 'All'.

3. I know I said two. But... I don't want it to resize the columns.

Sub Trans()
 
 Dim X, i As Long, j As Long, Y(), Dic As Object, k, Z
 
With Worksheets("All")
    Z = .Range("a2").CurrentRegion.Value
 End With
 
  Set Dic = CreateObject("scripting.dictionary")
  Dic.CompareMode = 1
 With Dic
    For i = 2 To UBound(Z, 1)
        .Item(Z(i, 20)) = i
    Next
 End With
 
 With Worksheets("ThisWeek")
    X = .Range("a2").CurrentRegion.Value
 End With
  ReDim Y(1 To UBound(X), 1 To UBound(X, 2))
 With Dic
    For i = 2 To UBound(X)
         If .exists(X(i, 20)) Then
            k = k + 1
            For j = 1 To UBound(X, 2)
                Y(k, j) = X(i, j)
            Next
       End If
    Next
 End With

 With Worksheets("Extracted")
    .UsedRange.Offset(1).ClearContents
    If k > 0 Then .Range("A2").Resize(k, UBound(Y, 2)) = Y
    .Columns.AutoFit
 End With
End Sub