Private Sub UserForm_Initialize()

Clear_data


.......

End Sub

Private Sub Clear_data()
Dim EndRowClear As Integer

  EndRowClear = Worksheets("depo").Cells(Rows.Count, 4).End(xlUp).Row + 1
If EndRowClear > 1 Then
  Worksheets("depo").Cells(2, 1).Resize(EndRowClear, 12).Value
End If

  EndRowClear = Worksheets("cred").Cells(Rows.Count, 4).End(xlUp).Row + 1
If EndRowClear > 1 Then
  Worksheets("cred").Cells(2, 1).Resize(EndRowClear, 16).ClearContents
End If

End Sub