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

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

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))- массив, в котором будут только строки с "Yes" (наверное это лишнее)
   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))- пытаюсь обрезать

 ReDim ss( LBound(Data ) To n,  LBound(Data , 2) To UBound(Data , 2))

  For w = 1 To UBound(SortData) '__________массив по условию
      If SortData(w, 10) = "Yes" Then n = n + 1
       Next
    ReDim ss(LBound(Data) To n, LBound(Data, 2) To UBound(Data, 2))
   For i = LBound(SortData) To UBound(SortData)
   If SortData(i, 10) = "Yes" Then
   X = X + 1
     For ii = LBound(SortData, 2) To UBound(SortData, 2)
            ss(X, ii) = SortData(i, ii)
             Next
      End If
    Next '__________массив по условию

For ii = LBound(SortData, 2) To UBound(SortData, 2)
            ss(X, ii) = SortData(i, ii)
             Next