Change VBA code using input box

[LLL0422]

Hi all,

Please help!

I'm having a difficult time trying find a way to change the bolded values using an input box instead of manually changing "intR = intS To value" for the cells that I need the code to look at.

intS = 3
For intR = intS To 19    
    Windows(strFile).Activate
    strA = Sheets(strSheet).Cells(intR, 35).Value
    For A = 1 To 8
    
        If A = 1 Or A = 2 Or A = 3 Or A = 4 Or _
        A = 5 Or A = 6 Or A = 7 Or A = 8 Then
        
        Windows(strIDFile).Activate
        strPlanID = Sheets(strSheet).Cells(intRegion, (intPlan * 3) + 8).Value
        dblAdultRate = Sheets(strSheet).Cells(intRegion, (intPlan * 3) + 9).Value
        dblChildRate = Sheets(strSheet).Cells(intRegion, (intPlan * 3) + 10).Value
                
        If intR = intS And A = 1 Then
        
       
            Workbooks.Open Filename:=strDirectory & strTemplate
            Windows(strTemplate).Activate
            Sheets("Table").Activate
                
            Range("B6").Select
            Selection.FormulaR1C1 = str1
            Range("B7").Select
            Selection.FormulaR1C1 = str2            
            Range("B8").Select
            Selection.FormulaR1C1 = dt3            
            Range("B9").Select
            Selection.FormulaR1C1 = dt4                                
            intRowKnt = 14
        End If
     Next A

I am noobie to coding and any amount of help is greatly appreciated! Thank you!!!