Userform - indsæt i en bestemt celle

Har selvfølgelig os den her til at sætte det ind

'copy the data to the database
ws.Cells(iRow, 1).Value = Me.TextBox1.Value

Hele min userform ser sådan ud:

Private Sub CMDadd_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("input")

'find first empty row in database
iRow = ws.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row

'Name
If Trim(Me.TextBox1.Value) = "" Then
  Me.TextBox1.SetFocus
  MsgBox "Please enter the name of the new employee"
  Exit Sub
End If

'copy the data to the database
ws.Cells(iRow, 1).Value = Me.TextBox1.Value
ws.Cells(iRow, 2).Value = Me.TextBox2.Value
ws.Cells(iRow, 3).Value = Me.TextBox3.Value
ws.Cells(iRow, 4).Value = Me.TextBox4.Value

'clear the data
Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.TextBox4.Value = ""
Me.TextBox1.SetFocus

End Sub

Tænker du bare på at skifte denne her
ws.Cells(iRow, 1).Value = Me.TextBox1.Value
ud med sådan en her
ws.Cells(1, 1).Value = Me.TextBox1.Value
eller sådan en her
ws.Range("A1").Value = Me.TextBox1.Value
eller den mindre kønne
ws.[A1].Value = Me.TextBox1.Value

ja det var da simpelt :.-) smider du ikke et svar... tak

Svar :-)