Variable Range - Set Rows AND Columns as variables

Hi guys,

i Need to have a variable range for selecting shapes in a specific range on my sheet.
My Code can already shift the range on any row (easy because of Number Format). But how can i set variables instead of column letters (like A or S in the example) to enable also a shift in columns.

   dynRange = "A" & dynA & ":S" & dynS

        For Each shp1 In sheet1.Shapes
        If Not Intersect(Range(dynRange), shp1.TopLeftCell) Is Nothing Then
            shp1.Select Replace:=False
        End If
        Next shp1
        Selection.Copy

Look in the attachment for further Explanation and a sample set to try your solution on.
I appreciate any help.