Range("A1").Select
Range("A1") = 10
varNbRows = Selection.CurrentRegion.Rows.Count
varNbCols = Selection.CurrentRegion.Columns.Count
Range("A2").Select
For varCounter = 1 To varNbRows
                For varCounter2 = 1 To varNbCols
                    Selection.Value = varNbCols
                    Selection.Offset(0, 1).Select
                Next
                Cells(varCounter, varCounter2).Offset(1, -varnum).Select
                
    Next