Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
Sub ProcesssBlocks()
Dim rngSource As Excel.Range
Dim rngTarget As Excel.Range
Dim rngPreCalc As Excel.Range
Dim rngCalculated As Excel.Range
Dim i As Long
' define no of rows and cols here, so it only neds to be changed once
Const lngRows As Long = 6, lngCols As Long = 3
' set data-dependent locations
Set rngSource = ActiveSheet.Range("C5").Resize(lngRows, lngCols)
Set rngTarget = rngSource.Offset(19, 0)
' again the location of these will probably be different in your solution
Set rngPreCalc = ActiveSheet.Range("P5").Resize(lngRows, lngCols)
Set rngCalculated = rngPreCalc.Offset(9, 0)
For i = 1 To 3 ' this is dependent on your data
rngPreCalc.Value = rngSource.Value ' copy source to staging area
rngTarget.Value = rngCalculated.Value ' copy calculated figures to final area
' move to the next source and target locations (offset dependent on layout)
Set rngSource = rngSource.Offset(0, 4)
Set rngTarget = rngTarget.Offset(0, 4)
Next i
End Sub
'
See attached.
Copy-of-Copy-values-in-ranges.xlsx