I am trying to copy a Grand Total row and paste special the values onto a worksheet called Sheet1. I get a Run-time error '424': Object Required.
My code is as follows:
Could you please help
Regards
My code is as follows:
Code:
With Sheets("Wessex").Range("C1:C65536")
Set a = .Find("Grand Total", LookIn:=xlValues)
If Not a Is Nothing Then
firstAddress = a.Address
Do
a.EntireRow.copy(Sheets("Sheet1").Range("A65536").End(xlUp).Offset(1, 0)).PasteSpecial Paste:=xlPasteValues
Set a = .FindNext(a)
If a Is Nothing Then Exit Do
Loop While Not a Is Nothing And a.Address <> firstAddress
End If
End With
Could you please help
Regards