Private Sub OK_Click()
 
Application.ScreenUpdating = False
 
    ActiveWorkbook.Sheets("Amortization Table").Activate
 
    Range("C14").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    ActiveCell.Offset(0, 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Selection.NumberFormat = "m/d/yyyy"
 
    Dim rFound As Range
 
    On Error Resume Next
    With Sheets("Amortization Table")
        Set rFound = .Columns(4).Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
            xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
            , SearchFormat:=True)
 
    On Error GoTo 0
        If Not rFound Is Nothing Then Application.Goto rFound, True
 
    End With
 
    ActiveCell.Offset(0, 7) = TextBox2.Value
 
    Range("A1").Select
 
    Call UserForm_Initialize
    frmPrinPmt.Hide
    ActiveWorkbook.Sheets("Enter Data").Activate
    Range("A1").Select
 
End Sub