Based on what I see, even that isn't needed. You can look up column A of the
Databas sheet and find the last row with data, add 1, then insert values across that row as per your form.
Code:
Option Explicit
Public Sub Save_Click()
Dim NextRow As Long
With Sheets("Databas")
NextRow = .Range("A" & .Rows.Count).End(xlUp).Row + 1
.Range("A" & NextRow).Value = Me.cboRisk.Value
.Range("C" & NextRow).Value = Me.txtProblem.Value
.Range("F" & NextRow).Value = Me.cboStatus.Value
End With
End Sub