как разделить данные по IF

Question

мне нужно знать, чтобы знать, как

• я могу добавить много строк, так как каждый раз, когда я пишу в ячейку A3, разделенные данные переходят только в строку 5, но мне нужно, чтобы они переходили в строку6, затем 7 и т. Д.

• я могу сделать 2 условия:

  1. , если номер содержимого ячейки A3 этот номер начинается с "0" и переводится в номерстолбец "столбец E" E5
  2. , если содержимое ячейки A3 ((* .com или * .net)) передает это слово в столбец продукта "столбец B" B5

• как я могу добавить больше разделителей, таких как (//, /, -)?

Sub SplitText1()

Const SourceRange = "A3" ' <-- Source data range, change to suit
Const DestCell = "a5"       ' <-- First destination cell, change to suit

Dim a As Variant, cell As Range, i As Long

For Each cell In Range(SourceRange)
a = split(cell.Value, "//")

ReDim Preserve a(0 To 6)
If Val(a(3)) = a(3) Then
  a(4) = a(3)
  a(3) = Empty
End If
Range(DestCell).Offset(i).Resize(, 6).Value = a
i = i + 1
Next

End Sub