Replacing Offset() with Non Volitile Function

[Printmark]

I have a workbook in which I cannot use any volitile functions (easier said than done).

Here is a section of code in which I need the same results without using the Offset() function.

Any Ideas are apprecitated.

    ActiveCell.Offset(38 + CellCount, 0).EntireRow.Select
    Selection.Resize(rowsize:=2).Rows(2).EntireRow. _
     Resize(rowsize:=vRows).Insert Shift:=xlDown
     
    ActiveCell.Offset(-38 - CellCount, 0).EntireRow.Select
    Selection.Resize(rowsize:=2).Rows(2).EntireRow. _
     Resize(rowsize:=vRows).Insert Shift:=xlDown
    Selection.AutoFill Selection.Resize( _
     rowsize:=vRows + 1), xlFillDefault
     
    On Error Resume Next
    Selection.Offset(1).Resize(vRows).EntireRow. _
     SpecialCells(xlConstants).ClearContents
     
    ActiveCell.Offset(38 + CellCount + vRows, 0).EntireRow.Select
    Selection.AutoFill Selection.Resize( _
     rowsize:=vRows + 1), xlFillDefault
     
    Sheets("Sp Cust Est").Activate
     ActiveSheet.Unprotect Password:="****"
     Range(Current_Cell).Offset(10, 0).EntireRow.Select
    
        Selection.Resize(rowsize:=2).Rows(2).EntireRow. _
     Resize(rowsize:=vRows).Insert Shift:=xlDown
    Selection.AutoFill Selection.Resize( _
     rowsize:=vRows + 1), xlFillDefault
     
     Range("k53").Offset(vRows, 0).Select

Thanks

Mark

 

[Derek Brown]

I don't understand why you consider that VBA Range Property to be 'volatile' - perhaps I am missing something?
http://www.decisionmodels.com/calcsecretsi.htm:
"A Volatile Function in a formula in a cell makes that cell be always recalculated at each recalculation even if it does not appear to have any changed precedents.".
Perhaps you could explain why you cannot use the code you gave, please.