VBA 다른 시트의 범위 복사 붙여넣기

Option Explicit
Dim B As Range
Dim varTemp() As Variant
Dim C As Variant
Private Sub CommandButton1_Click()

C = Sheet2.Cells(Rows.Count, 5).End(xlUp).Row
Set B = Sheet2.Range(Cells(1, 4), Cells(C + 1, 5))
B.Copy Sheet2.Cells(1, 1)

End Sub

해당 코드는 SHEET1에 있는 버튼을 눌러 실행하고자 합니다.

항상 Set B = Sheet2.Range(Cells(1, 4), Cells(C + 1, 5)) 이 부분이 문제가 되고 있습니다.

다른 시트의 범위를 range로 지정할때, 가변범위는 지정이 불가능한건가요?

가능하다면 코드를 어떻게 바꿔야할지요..