Hallo Simon,

1. die Variable solltest du als Long deklarieren

2. ohne Select bzw. Activate, mit With - End With

     dabei wird auf das im With angegebene Blatt referenziert, indem vor jedem Range Objekt (Range, Cells, Rows...) ein Punkt geschrieben wird

Private Sub CommandButton1_Click()
 'letzte freie Zeile
Dim last As Long

With Worksheets("PsMittel")
    last = .Cells(.Rows.Count, 2).End(x1Up).Row + 1
    If last <= 5 Then last = 5
    'TextBox1 einfügen
    .Cells(last, 2).Value = TextBox1
End With
 
End Sub

Wenn ich dich richtig verstehe soll frühestens ab Zeile 5 geschrieben werden.

Gruß Werner