[ChrisGT7]

Για δοκίμασε τον παρακάτω κώδικα:

Sub KATAMETRHSH()
    Dim I As Long, C As Long
    
    If Not IsNumeric([G10]) Then
        MsgBox "Μη έγκυρος αριθμός!", vbCritical
        Exit Sub
    Else
        I = Abs(Int([G10]))
    End If
    
    Range([I10], Cells(10, Columns.Count)).ClearContents
    For C = 1 To I
        Cells(10, 8 + C).Value = C
    Next
End Sub