jumping to the next row

Hi again

Sorry for this easy question but I am new in VBA.

How to get my cell to the next row if it reachs the border of the defined range?

Dim myCell As Range
Dim myRange As Range
Dim rowsCnt As Integer
Dim ColumnsCnt As Integer
Dim i As Integer
Dim j As Integer

Set myCell = Range("G6")
Set myRange = Range("G6:M15").CurrentRegion
rowsCnt = Range("G6:M15").CurrentRegion.Rows.Count
ColumnsCnt = Range("G6:M15").CurrentRegion.Columns.Count

For i = 0 To rowsCnt

For j = 0 To ColumnsCnt - 1

Set myCell = myCell.Offset(0, 1)
myCell.Select

Next j
Next i

Please advise
Thank you

Hi there, is this what you need:

Please Login or Register  to view this content.