macro vba to select ranges to copy other worksheets (loop)

[aaaaa34]

Hello everybody,
I hope you all doing well guys.

I'd like to ask your help for macro vba to select cells between G and S columns continously till last row
I mean code will continously select ranges G2:S3 , G5:S8 , G10:S15 , G17:S17 , G19:S25 , stop
But, I want macro start to run selecting range from next range which cell I click in the "fixture" worksheet.

For example:
i selected cell P5 or M6:R7 range.
when I run macro, it will start with selecting selecting G10:S15 , then G17:S17 , then G19:S25 , stop.

I need this macro part for adding into another macro which copying these ranges to other worksheet.
so you don't need to add copy+paste section.

Pls have a look into attached workbook
Thank you.

[Artik]

Try. Without selecting. Without looping.

Sub AAA()
    Dim wksS As Worksheet
    Dim wksT As Worksheet
    Dim LO As ListObject
    Dim lRow As Long

    Set wksS = Worksheets("fixture")
    Set wksT = Worksheets("output")

    Set LO = wksS.ListObjects(1)

    With wksT
        lRow = .Cells(.Rows.Count, "A").End(xlUp).Offset(1).Row
    End With
    
    On Error Resume Next
    wksS.ShowAllData
    On Error GoTo 0
    
    LO.Range.AutoFilter Field:=7, Criteria1:=">0", Operator:=xlAnd

    LO.DataBodyRange.Columns("G:S").Copy wksT.Cells(lRow, "A")
    LO.Range.AutoFilter Field:=7

End Sub

Artik