Hjælp til makro?

Jeg har en brugerform som indsætter en værdi i celle A2. Den fungerer fint hvis celle er tom, men hvis celle er fuld så kommer der fejlmeddelse "runtime error 424". Jeg vil gerne have at hvis cellen a2 er fuld så indsættes næste værdi i cellen nedenunder osv.
Her er makro:
Private Sub CommandButton1_Click()
Worksheets("Opdatering").Activate
Range("A2").Select
If Range("A2").Value = "" Then
Range("A2").Activate
Else
Range("A2").CurrentRegion.Select
AtiveCell.Offset(Selection.Rows.Count, 0).Activate
End If
With ActiveCell
.Value = TextBox1.Text

End With
End Sub