Private Sub CommandButton1_Click()
'Dim LastRow As Object
Set sh = Sheets("Spiller liste")
    LastRow = sh.Cells(65536, "A").End(xlUp).Row
       '  LastRow = Ark2.Range("a65536").End(x1Up).Row

          sh.Cells(LastRow, 1).Offset(1, 0).Value = TextBox1.Text
          sh.Cells(LastRow, 1).Offset(1, 1).Value = TextBox2.Text
          sh.Cells(LastRow, 1).Offset(1, 2).Value = TextBox3.Text
          sh.Cells(LastRow, 1).Offset(1, 3).Value = TextBox1.Text
          sh.Cells(LastRow, 1).Offset(1, 4).Value = TextBox2.Text
          sh.Cells(LastRow, 1).Offset(1, 5).Value = TextBox3.Text
         
         

          MsgBox " Vil du tilføje Spiller til Spiller Liste"

          response = MsgBox("Vil du også tilføje Flere?", _
              vbYesNo)

          If response = vbYes Then
              TextBox1.Text = ""
              TextBox2.Text = ""
              TextBox3.Text = ""
              TextBox4.Text = ""
              TextBox5.Text = ""
              TextBox6.Text = ""
              TextBox1.SetFocus

          Else
              Unload Me
          End If
End Sub