사용자 입력에 의한 범위 선택 구문

Question

다음은 제 코드입니다. 서로 다른 시트의 두 원시를 복사하여 다른 시트에 붙여 넣으려고합니다. 선택은 사용자가 그래픽으로하려는 raw 번호를 입력하여 이루어집니다. 어떤 도움이라도 대단히 감사합니다.

- 

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