Sub test()
Dim a, i, k, arra, arrb, cx
cx = Sheets(2).[l2]
a = Sheets(1).Cells(60000, 1).End(xlUp).Row
arra = Sheets(1).Cells(1, 1).Resize(a, 14)
ReDim arrb(1 To a, 1 To 9)
For i = 3 To a
If arra(i, 3) = cx Then
k = k + 1
arrb(k, 1) = arra(i, 1)
arrb(k, 2) = arra(i, 2)
arrb(k, 3) = arra(i, 4)
arrb(k, 4) = arra(i, 5)
arrb(k, 5) = arra(i, 6)
arrb(k, 6) = arra(i, 7)
arrb(k, 7) = arra(i, 8)
arrb(k, 8) = arra(i, 9)
arrb(k, 9) = arra(i, 10)
End If
Next i
Sheets(2).Cells(7, 3).Resize(UBound(arrb), 9) = arrb
End Sub