VBAマクロを使用して目的のシートにデータを転送する方法

Question

Excel 2013 with VBAマクロ。 2つのコマンドボタンcmdAddDateとcmdMoveという名前のコマンドボタン。 cmdAddDateは、ComBoBox1からの別のシートを追加することを許可します。 cmdMoveは2つのテキストボックスからExcelシートにデータを転送することができます。

私の問題は、2つのテキストボックスからのデータが目的のシートに移動するように何を使用するのか分からないということです。

現在、私はどこにこのコードとデータの送信先を定義する静的な方法を使用しています：

With Worksheets("June 1").Range("A65536").End(xlUp) 

私はスクリーンショットがあります。スクリーンショットに基づいて私の例から

を、私はクルトがしたいです6月2日にシートに移動してください..アドバイス/助けていただければ幸いです。

ここに私のコードは、これまでのところです：

Private Sub cmdAddDate_Click() 
    Dim ws As Worksheet 
    Set ws = ThisWorkbook.Sheets.Add(After:= _ 
      ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)) 
    ws.Name = ComboBox1.Value 
End Sub 


Private Sub cmdMove_Click() 
    With Worksheets("June 1").Range("A65536").End(xlUp) 
     'With UserForm1.ComboBox1.Value 
     .Offset(1, 0) = UserForm1.txtName.Value 
     .Offset(1, 1) = UserForm1.txtID.Value 
    End With 
End Sub 


Private Sub UserForm_Initialize() 
    ComboBox1.Clear 

    With ComboBox1 
     .AddItem "June 1" 
     .AddItem "June 2" 
     .AddItem "June 3" 
     .AddItem "June 4" 
     .AddItem "June 5" 
    End With 
End Sub 

Answer 1

ComboBox1で選択Value、すなわちに基づいてワークシート名が

With Worksheets("June 1").Range("A65536").End(xlUp) 

へ

With Worksheets(ComboBox1.Value).Range("A65536").End(xlUp)