llastr = .Usedrange.row+.usedrange.rows.count-1

Private Sub Command2_Click()
Dim llastr As Long
Call open_xl 'открываем приложение XL
 Set mini = xl.Workbooks.Open("D:\Мои документы\Desktop\пример\мини.xlsx")  'открываем книг
 
 With mini.Sheets("Лист1")
      llastr = .usedrange.Row + .usedrange.Rows.Count - 1
     .Rows("2:2").Copy .Range("A" & llastr + 1)'скопировали в первую пустую ячейку
 'теперь наполняем нужными данными ИМЕННО вставленную строку, а не какую-то 2-ю(ЗАЧЕМ?!)
 .Range("A" & llastr + 1) = Text1 'ФАМИЛИЯ
 .Range("B" & llastr + 1) = Text2 'ИМЯ
 .Range("C" & llastr + 1) = Text3 'ОТЧЕСТВО
End With
'СОХРАНЯЕМ/ЗАКРЫВАЕМ
xl.Workbooks("мини кридит").Save
 mini.Close True
End Sub