Werte aktualisieren oder in nächster freie Zeile

Private Sub CommandButton6_Click()
Dim LngZ As Long
Dim Found1 As Range
Dim Found2 As Range
Set Found1 = Sheets("Aktuell").Columns(2).Find(ComboBox7, Sheets("Aktuell").Cells(10, 2), ,  _
xlPart, , xlNext)
Set Found2 = Sheets("Archiv").Columns(2).Find(ComboBox7, Sheets("Archiv").Cells(65536, 2), ,  _
xlPart, , xlNext)
LngZ = Cells(Rows.Count, "B").End(xlUp).Row
If Found2 Is Nothing Then
ComboBox7.Text = LngZ.Offset(0, 1).Value  'Name
End If
End Sub

Leider komme ich nicht weiter. Aktuell wird der fett gedruckte Bezeichner als ungültig ausgegeben.
ComboBox7.Text = LngZ.Offset(0, 1).Value 'Name
Kann mir Jemand helfen?
Gruß Frank