Option Explicit

Sub abRepeatStart()

    Dim rCheck As Range

    Set rCheck = Sheets("Sheet1").Range("H1")

    Dim sRepeat As String: sRepeat = "Repeat"

    Dim rCount As Range

    Set rCount = Sheets("Sheet1").Range("C2")

    Dim i As Long

    rCheck = sRepeat

    For i = 1 To 9999

        If rCheck = sRepeat Then

            DoEvents

            rCount.Value2 = rCount.Value2 + 1

            Call abCopyAsConditional

            Application.Wait Now() + TimeSerial(0, 0, 3)

            DoEvents

        Else

            Exit For

        End If

    Next i

End Sub

Sub abRepeatStop()

    Sheets("Sheet1").Range("H1").Value2 = ""

End Sub

Sub abCopyAsConditional()

    Dim rng As Range

    Set rng = Sheets("Sheet1").Range("A2")

    Dim rSource As Range

    Dim rTarget As Range

    Set rTarget = Sheets("Sheet2").Range("B2")

    On Error Resume Next

    Set rTarget = rTarget.End(xlDown).Offset(1)

    On Error GoTo 0

    Dim sSize As String: sSize = "225size"

    Dim i As Long

    For i = 0 To rng.CurrentRegion.Rows.Count - 1

        If rng.Offset(i).Value = sSize Then

            If rSource Is Nothing Then

                Set rSource = rng.Offset(i, 1).Resize(, 6)

            Else

                Set rSource = Union(rSource, rng.Offset(i, 1).Resize(, 6))                    

            End If

        End If

    Next i

    rSource.Copy rTarget

End Sub