VBA code to reference the value in a specified cell , not the formula

[JKK22]

I found some VBA code that works for me, except for one line, and am wondering if someone can give me a suggestion.
In the below code, instead of manually designating how many rows to go down (+29) , I have a formula that calculates the # rows to go down in cell B2 on sh1. ( formula to calc because the range changes all the time). Can I have the VBA just reference the value that is returned from the formula in B2?
Dim strFind As String
Dim fRow, fCol As Integer
Dim sh1, sh2 As Worksheet

Set sh1 = Sheets("Inv5")
Set sh2 = Sheets("Inv1")
strFind = sh1.Range("N5").Value
Set foundCell = sh2.Range("C:C").Find(strFind, LookIn:=xlValues)

If Not foundCell Is Nothing Then
fRow = foundCell.Row
fCol = foundCell.Column
sh2.Range(Cells(fRow, fCol + 10).Address & ":" & Cells(fRow + 29, fCol).Address).Copy
sh1.Range("R10").PasteSpecial xlPasteValues
Application.CutCopyMode = False

Else

Call MsgBox("Not found the match cell!", vbExclamation, "Finding String")

End If

 

[Joe4]

Sure.

You should be able to just replace:

fRow + 29

with

fRow + Range("B2").Value

Also, you don't to figure out the address to build the range, i.e.
this:

sh2.Range(Cells(fRow, fCol + 10).Address & ":" & Cells(fRow + 29, fCol).Address).Copy

can be simplified to this:

sh2.Range(Cells(fRow, fCol + 10), Cells(fRow + 29, fCol)).Copy

 

[JKK22]

Your first suggestion worked to change it to Range("B2").Value- Thank You

The second simplification suggestion did not work, it returned an error

 

[Joe4]

If you implement them both together, it should look like:

sh2.Range(Cells(fRow, fCol + 10), Cells(fRow + Range("B2").Value, fCol)).Copy

If you still get an error, what is the exact error message?

What are your values of "fRow", "fCol" at the time of the error?