Question

I found a macro that almost does what I need. It copies a row named “Totals” and pastes the row in a new sheet. The row “Totals” have formulas and I need values. How do I adjust the macro to work correctly?

Here is the macro code:

Sub RowCopy2()
Dim rngFind As Range

With Worksheets("Hol. Stats").UsedRange
Set rngFind = .Find("Totals", _
            LookIn:=xlValues, _
            LookAt:=xlWhole, _
            SearchOrder:=xlByRows, _
            SearchDirection:=xlNext, _
            MatchCase:=True)
End With
rngFind.EntireRow.Copy _
Destination:=Worksheets("Sheet2").Range("A1")
End Sub

Answer 1

Use

Sub RowCopy2() Dim rngFind As Range
  With Worksheets("Hol. Stats").UsedRange 
    Set rngFind = .Find("Totals", _
         LookIn:=xlValues, _
         LookAt:=xlWhole, _
         SearchOrder:=xlByRows, _
         SearchDirection:=xlNext, _
         MatchCase:=True) 
  End With 

  rngFind.EntireRow.Copy 
  Sheets("Sheet2").Range("A1").PasteSpecial xlPasteValues
End Sub