Use Offset and Variable to Copy and Paste Range in a different Worksheet

Hi all,

Pretty simple problem here, but for some reason I seem I am not getting it. I'm trying to select a range in Sheet 2 using Offset, with the column being offset by a cell value in Sheet 1. Then paste that range into Sheet 1. I've included by code below, and the worksheet is attached.

I would prefer to use the select method below, as this is a requirement of my project.

Sub copyover()

Dim i As Variant
i = Sheets("Sheet1").Range("H2")
Select Case i
Case Is = 1

Cells(1, 1).Activate
ActiveCell.Value = "Test"

Case Else
Sheets("Sheet2").Activate
Range(Range("G2").Offset(0, i), Range("G2").Offset(5, i)).copy

Sheets("Sheet1").Activate
Cells(2, 10).PasteSpecial xlPasteValues
End Select


End Sub

Many Thanks