Удаление в массиве

Sub q()
Dim a As Variant
a = Range(Cells(5, 6), Cells(8, 6))
 
For i = LBound(a) To UBound(a)
If a(i, 1) = "Три" Then
a(i).Clear  ??????
End If
Next
End Sub

Sub q()
    Dim a As Variant
    a = Range(Cells(5, 6), Cells(8, 6))
 
    For i = LBound(a) To UBound(a)
        If a(i, 1) <> "Три" Then
            x = x + 1
            a(x, 1) = a(i, 1)
        End If
    Next
    Cells(5, 8).Resize(x, 1) = a
End Sub

  Dim a As Variant
    a = SortData
 
    For i = LBound(a) To UBound(a)
        If IsEmpty(a(i, 1)) And IsEmpty(a(i, 2)) And IsEmpty(a(i, 3)) And IsEmpty(a(i, 4)) Then
            X = X + 1
            a(X, 1) = a(i, 1)
        End If
    Next
    Cells(5, 8).Resize(X, 1) = a

ReDim Data(1 To UBound(SortData), 1 To 29)

If SortData(i, 10) = "Yes" Then

 Data = Sheets("DATA").ListObjects("Data").DataBodyRange
  For i = 1 To UBound(Data)
  For ii = LBound(Data, 2) To UBound(Data, 2)
  If Data (i, 10) = "Yes" Then

 Dim ss As Variant, SortData As Variant
     Data = Sheets("DATA").ListObjects("Data").DataBodyRange
            
 ReDim ss( LBound(Data ) To UBound(Data ,  LBound(Data , 2) To UBound(Data , 2))
   For i = LBound(Data ) To UBound(Data )
   If Data (i, 10) = "Yes" Then
   X = X + 1
     For ii = LBound(Data , 2) To UBound(Data , 2)
 
        
            ss(X, ii) = Data (i, ii)
        
    Next
     End If
    Next
   ReDim Preserve ss(LBound(Data ) To X, LBound(Data , 2) To UBound(Data , 2))

X = 0
For i = LBound(Data ) To UBound(Data )
   If Data (i, 10) = "Yes" Then
     X = X + 1
     redim preserve ss(ii,x)    'меняет размер толко последнего элемента, строки   [B]ii[/B]   менять нельзя (пишу на всякий случай)
     ss(ii,x)=Data (i, 10)
   endif
 
next