run different code upon the number assigned in textbox

[copythat]

Hi there,

I would like to have a code that inputs the data from textbox1 (in userform) to a certain range upon a number in textbox2 (in userform).

For example if I input "1" to textbox2, the data in textbox1 will be pasted in range AE3
if 2 --> AD3
if 3 --> AC3
.
.
.
if 30 --> B3

Sub Button1_Click()
Dim strText         As String
Dim aryCharacters   As Variant
Dim n               As Long
    
    strText = Replace(Me.TextBox1.Value, Chr(32), vbNullString)
    
    If Len(strText) > 1 Then
        If Len(strText) < ThisWorkbook.Worksheets(1).Columns.Count Then
            'Optional, clear the row first:
            Rows(3).ClearContents
    
            ReDim aryCharacters(1 To 1, 1 To Len(strText))
            For n = 1 To Len(strText)
                aryCharacters(1, n) = Mid(strText, n, 1)
            Next
            Range("AE3").Resize(, UBound(aryCharacters, 2)).Value = aryCharacters
            Unload Me
        Else
            MsgBox "Too long...", 0, vbNullString
        End If
    Else
        MsgBox "You must have text in the textbox...", vbOKOnly, vbNullString
    End If
End Sub

Thanks,

PS I want to do this otherwise I need to have 30 buttons to run each of them.