Fehler bei "Range"

hab ein kleines problem,
dieser Code macht mir an der Stelle "Range" einen Fehler, hab aber keine Ahnung warum.

Private Sub CommandButton2_Click()
Sheets("Ausschnitte").Range("A65000").End(xlUp).Offset(1, 0).Select
ActiveCell = "Innenkontur"
ActiveCell.Offset(1, 0) = "Rund"
ActiveCell.Offset(2, 0) = TextBox5
ActiveCell.Offset(6, 0) = (TextBox5 * 3.1415)
End Sub

Vieleicht wisst Ihr dass ja.

Gruß
Andreas