UserForm not Displaying Correctly

Hello strugglin,

OK, I got it working. There were a few errors. Here is the macro for the "Add Contact" button. I removed the code to hide the UserForm. Let the user dismiss the form when they ready.

Private Sub CommandButton1_Click()

    'AddContract.Hide
    
    With Worksheets("Sheet1")
      StartRow = 3
      NextRow = .Cells(Rows.Count, "A").End(xlUp).Row + 1
      NextRow = IIf(NextRow < StartRow, StartRow, NextRow)
      .Cells(1, 10).Value = Me.DTPicker1.Value
      .Range("A1:M1").Copy _
        Destination:=.Cells(NextRow, "A")
      .Range("A1:M1").Clear
    End With
        
End Sub