[VBA] 셀값을 참조해서 범위 찾기

단어 관련 암기를 돕기위해서 사용하고 있던 코드인데요. 
이번에는 "전범위"시트의 "F1"값을 참고해서 "H:K"열에 있는 "F1"값의 옆에 있는 범위 ex) F1= 1-5 일때 범위 "1-150"을
참조해서 만드는 코드를 만들고 싶습니다. 그러면 F1값만 변경해주고 버튼을 누르면 자동으로 내용이 단어 내용이 변경될 수 있게요!
솔직히 혼자 해보려고 했는데, 계속 안되서 도움 요청합니다.
보라색 부분을 변경하면 될것 같았는데 아닌가요? ㅠㅠ
---------------------------------------------------------------------------------------------------------
Option Explicit
 
Dim 자료 As Range
 
Sub 버튼_문제출제_클릭()
    Dim 번호     As Range
    Dim strSec   As String
    Dim fNum     As Long
    Dim arrSec   As Variant
    Dim myNum    As Variant
    Dim cnt      As Long
    Dim n        As Long
    Dim rndNum() As Variant
    Dim myData() As Variant
 
    Set 자료 = Sheets("DATA").[A1].CurrentRegion
    Set 번호 = Sheets("TEST").[A1].CurrentRegion
    Set 번호 = 번호.Offset(2, 1).Resize(번호.Rows.Count - 2, 1)
 
 
    '----------------------------------
    ' 초기화 - 랜덤, 기존자료, 머릿글
    '----------------------------------
    번호.Resize(, 2) = Empty ' 기존자료 삭제
    With Range("b2")
        ' 머릿글 설정
        If n = 1 Then
            .Resize(, 2) = Array("해석", "원문")
        Else
            .Resize(, 2) = Array("원문", "해석")
        End If
    End With
 
    '----------------------------------
    ' 랜덤 번호 가져오기
    '----------------------------------
    cnt = 번호.Rows.Count
    ReDim rndNum(1 To cnt)
    ReDim myData(1 To cnt, 1 To 2)
<span style="color: #800080;">    On Error GoTo Error_Handler
    strSec = InputBox("시작번호와 종료번호를 입력" & vbCr & vbCr & _
                        "ex) 12-" & 12 + cnt - 1, "시작 번호")
    If strSec = "" Then Exit Sub
    arrSec = Split(strSec, "-")
    If UBound(arrSec) <> 1 Then GoTo Error_Handler
    arrSec(0) = Val(Trim(arrSec(0)))
    arrSec(1) = Val(Trim(arrSec(1)))
    If arrSec(1) - arrSec(0) + 1 < cnt Or arrSec(1) > 자료.Rows.Count Then
        MsgBox "구간 입력이 잘못되었습니다.", 64, "입력 오류"
        Exit Sub</span>
    End If
    Call mkRandom(cnt, arrSec, rndNum)
    If Sheets("TEST").Shapes("옵션_해석").ControlFormat.Value = 1 Then
        For n = 1 To cnt
            myData(n, 1) = 자료(rndNum(n), 2).Value
        Next n
        번호.Value = myData
    Else
        For n = 1 To cnt
            myData(n, 1) = 자료(rndNum(n), 2).Value
            myData(n, 2) = 자료(rndNum(n), 3).Value
        Next n
        번호.Resize(, 2).Value = myData
    End If
 
    '----------------------------------
    ' 변수 메모리 초기화
    '----------------------------------
    Set 자료 = Nothing
    Exit Sub
Error_Handler:
    MsgBox Err.Description
End Sub
 
Sub mkRandom(ByVal Cont As Long, ByVal mySec As Variant, ByRef rndNum As Variant)
    Dim n   As Long
    Dim dpl As Boolean
    Dim ni  As Long
    Randomize
    For ni = 1 To Cont
        dpl = False
        Do Until dpl = True
            rndNum(ni) = Int(Rnd() * (mySec(1) - mySec(0) + 1) + mySec(0))
            dpl = True
            For n = 1 To ni - 1
                If rndNum(n) = rndNum(ni) Then dpl = False
            Next
        Loop
    Next
End Sub