Find the text in the string and filter by word. Then copy the filtered content to a new sheet

[Slavio]

Hi Guys,
(All EXCEL.LENT ladies and gentlemen)

I have text in Column A.
Here are the rows of the table that start with the following characters:
<A1 ...
For example: <A1 S = "20" D = "5.70" Z = "15.68" Date = "2021-03-25" F = "1000615" Abj = "DE09876547" />
Then the lines follow
<B2
<C1

The task:
I need to find a table row, with the word: "<A1 ..."
I then copy (filter) all these lines and paste them into the second sheet.

The same happens when searching for other terms <B2 ..., <C1 ...
etc.

How to solve it in VBA?

 

[Slavio]

Sub FilterTest()
' Filtering by
    Sheets("Source").Select
    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$A$290"), , xlNo).Name = _
        "Table4"
      
    'I need to change this row because the table will have a variable number of rows and table4 will always have a different name _
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$A$290"), , xlNo).Name = "Table4"
      
    Range("Table4[[#All],[Stĺpec1]]").Select ' Výber tabuľky
  
    ' Selection by criteria "<A1"
    ActiveSheet.ListObjects("Table4").Range.AutoFilter Field:=1, Criteria1:= _
        "=*<A1*", Operator:=xlAnd
    Selection.Copy
    Sheets("A1").Select
    Range("A1").Select
    ActiveSheet.Paste
  
  
    ' Selection by criteria "<B2"
    Sheets("Source").Select ' Table selection
    ActiveSheet.ListObjects("Table4").Range.AutoFilter Field:=1
    ActiveSheet.ListObjects("Table4").Range.AutoFilter Field:=1, Criteria1:= _
        "=*<B2*", Operator:=xlAnd
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("B2").Select
    ActiveSheet.Paste
  
    ' Selection by criteria "<C1"
    Sheets("Source").Select ' Table selection
    ActiveSheet.ListObjects("Table4").Range.AutoFilter Field:=1
    ActiveSheet.ListObjects("Table4").Range.AutoFilter Field:=1, Criteria1:= _
        "=*<C1*", Operator:=xlAnd
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("C1").Select
    Range("A1").Select
    ActiveSheet.Paste

End Sub

 

[Slavio]

I finally solved it like this, So if anyone needs the code ~> here it is and it is functional for me.

The data is not transferred to the second sheet, but to column T. Then I copy and paste it. It's not an elegant solution, but it works

Sub AddFormulaTo()
Dim cell As Range
For Each cell In Range("A1:A1000")
If cell.Value = "<A1 S=" Then
cell.Offset(0, 19).Value = "=CONCATENATE ..."
ElseIf cell.Value = "<B2" Then
cell.Offset(0, 19).Value = "=CONCATENATE ..."
ElseIf cell.Value = "<C1" Then
cell.Offset(0, 19).Value = "=CONCATENATE ..."
End If
Next cell

    Sheets("Sheet1").Select
    Columns("T:T").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("A1").Select
    ActiveSheet.Paste
End Sub