Loop or For Each within a For Each

[Rick_Stanich]

I am having some technical difficulties trying to place data onto sheet2. Sheet2 starts out blank, as sheet1 is proccessed it pastes data to sheet2. I have tried a "For Each" that failed only pasting data into Range "A1" for every found instance.

In the code below, the area colored "Magenta", I need a Loop of some type that as data is pasted into column A on sheet2, it indexes to the next available cell and continues.
How do I construct such a Loop or For Each with in the existing For Each?

Sub aaa()
If Left(ActiveWorkbook.Name, 3) = "MOT" Then

    'iTimeStart = Now()    'Time counter start to time macro
    With Sheets("Sheet1")    'Loop thru Column A
        Sh1LastRow = .Cells(Rows.Count, "A").End(xlUp).Row
        Set Sh1Range = .Range("A10:A" & Sh1LastRow)
    End With

    With Sheets("Sheet2")    'Loop thru Column A
        Sh2LastRow = .Cells(Rows.Count, "A").End(xlUp).Row
        Set Sh2Range = .Range("A1:A" & Sh2LastRow)
    End With

    For Each Sh1Cell In Sh1Range
        If IsNumeric(Sh1Cell.Offset(0, 3).Value) = True Then
            If Sh1Cell.Offset(0, 5).Comment Is Nothing Then
                If Sh1Cell.Offset(0, 5).Value <> "" Then
                    sBubbleNumber = Sh1Cell.Offset(0, 3).Value
                    sDimValue = Sh1Cell.Offset(0, 5).Value
                    Sh1Cell.Activate
                    'add "For Each" or "Loop" for sheet2?

                            'Sh2Cell.Value = sBubbleNumber
                            'Sh2Cell.Offset(0, 1).Value = sDimValue

                    'MsgBox sBubbleNumber & " " & sDimValue    'for testing
                End If
            End If
        End If
    Next Sh1Cell

End If
End Sub

Any hints, tips or examples are welcome.