I am trying to go to the second to last column in the specified rows, then paste the value of that cell. This code returns a run time error '438' object doesn't support this property or method at the .Offset (1) line. One issue might be that below the data of the report (what I am trying to run this code on), there is a blank line then a total line. I do not want to go to that...So I think I may need to use the .End(xlDown) function, but when I tried that it did not work either...Any suggestions?





Dim Col As Range

    For Each Col In Range("C:C,I:I,M:M,Q:Q,S:S,W:W,AC:AC,AE:AE,AG:AG,AQ:AQ,AS:AS,AU:AU,BA:BA,BK:BK,BO:BO,BX:BX,BY:BY,CI:CL,CN:CQ").Columns
      With Cells(Rows.Count, Col.Column).End(xlUp)
      .Offset (1)
      .Value = .Value
    End With
    Next