Macro Take The Numbers And Add Into Other Sheet

How do I start to write this macro. I want to accomplish this. I want to take the numbers in H93:H140 on sheet 1, and add it into another woorkbook (Variance report) in a different location. I want that bank of number to grab the same amount of cells in Variance report workbook, and add them to it.

ex there is qty of 2 in cell h:93 on sheet 1 and it will grab the first cell in the bank on Variance report that has a qty of 3, and add the qty of 2 to say it know has a qty of (5)

Here is some code that a member here helped with, and it gets hung up in this area.

vValue = Val(wsTo.Range(R.Address).Offset(rRowOff, iColOff).Value) + _
Val(R.Value)

Private Sub Variance_Click()
Const cFromRange As String = "H93:H140"
Const cVarRepFirstCell As String = "A1"
Dim iColOff As Integer
Dim rRowOff As Long
Dim R As Range
Dim vValue As Variant
Dim WSFr As Worksheet, wsTo As Worksheet

Set WSFr = Sheets("Bid Sheet")
iColOff = Range(cVarRepFirstCell).Column - Range(cFromRange).Column
rRowOff = Range(cVarRepFirstCell).Row - Range(cFromRange).Row...................