Why do i get an error is the last line of this code?
Sub ExtractingDatawithArrays()
Dim TeamStatus() As Variant, ExtractData() As Variant, Counter As Long
Dim i As Long, k As Long
TeamStatus = Sheet1.Range("A1").CurrentRegion
For i = 2 To UBound(TeamStatus, 1)
If...