ユーザからの入力による範囲選択の構文

Question

ここは私のコードです。私は別のシートから2つの生のものをコピーし、別のシートに貼り付けようとしています。選択は、ユーザがグラフィックを作成する生の数を入力することによって行われる。どんな助けも大歓迎です。

- 

Private Sub CommandButton1_Click() 
Dim Date1 As Variant 
Date1 = InputBox("Cell number you want to graph. Enter any cell number from 
     4 to 863", "Cell Number") 

    Sheets("Deflection").Select 
     *******Range("E & "Date1":DG & "Date1" ").Select******* 
     Selection.Copy 
     Sheets("Static Rate Curve").Select 
     Range("A2").Select 
     Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ 
      False, Transpose:=True 
     Sheets("Load").Select 
     **Range("E & "Date1":DG & "Date1" ").Select** 
     Selection.Copy 
     Sheets("Static Rate Curve").Select 
     Range("B2").Select`enter code here` 
     Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ 
      False, Transpose:=True 
     Range("D8").Select 

Answer 1

これですべてが必要です。

Private Sub CommandButton1_Click() 
Dim wsSource1 As Worksheet, wsSource2 As Worksheet, wsDest As Worksheet 
Dim Date1 As Variant 

Set wsSource1 = Sheets("Deflection") 
Set wsSource2 = Sheets("Load") 
Set wsDest = Sheets("Static Rate Curve") 

Date1 = InputBox("Cell number you want to graph. Enter any cell number from 4 to 863", "Cell Number") 

wsSource1.Range("E" & Date1 & ":DG" & Date1).Copy 
wsDest.Range("A2").PasteSpecial xlPasteAll, Transpose:=True 

wsSource2.Range("E" & Date1 & ":DG" & Date1).Copy 
wsDest.Range("B2").PasteSpecial xlPasteAll, Transpose:=True 

End Sub