Problem with loop, nest loop

[LukiiMaxim96]

Hi! I need to loop through a dynamic data set, only the range in which the data are entered is given.

I need to loop through every cell and copy the value to the end of another column. I totally managed that for the first column but now I am stuck with telling excel to increment the row and run the loop again until a certain number is reached. I tried to accomplish that with a nested for next loop but that doesnt work... Any help?

I basically need to insert a variable that increments by one after the initial loop is fullfiled in the 3rd line: Offset(-2 -b,0)

Here is what ive got so far:

For a = 0 To CountaColumnsResult - 1
lRow5B = Sheet5.Range("B" & Rows.Count).End(xlUp).Row
Sheet4.Range("K10").End(xlToRight).Offset(-2, a).Copy
Sheet5.Range("B" & lRow5B + 1).PasteSpecial xlPasteValues
Next

Help is highly appreciated!

 

[LukiiMaxim96]

For b = 0 To CountaRowsResult
    For a = 0 To CountaColumnsResult - 1
    lRow5B = Tabelle5.Range("B" & Rows.Count).End(xlUp).Row
    Tabelle4.Cells(10 + b, 11).End(xlToRight).Offset(-2 - b, a).Copy
    Tabelle5.Range("B" & lRow5B + 1).PasteSpecial xlPasteValues
    Next a
Next b

this is my brightest try.. this cannot be to hard..

 

[LukiiMaxim96]

I solved it myself:

For t = 10 To CountaRowsResult + 9
    For z = 1 To CountaColumnsResult
    Tabelle4.Cells(t, 11).Offset(-t + 8, z).Copy
    lRow5B = Tabelle5.Range("B" & Rows.Count).End(xlUp).Row
    Tabelle5.Range("B" & lRow5B + 1).PasteSpecial xlPasteValues
    Next
Next