I am sorry for the cross-posting. I am new to this whole forum thing, and I am going to stick with this one for this problem.
I am running a macro that copies data in a form into two different archives. If one cell in the form contains specific data, it copies all of the information to the second archive. When I run the macro, it brings up the error message
Run-time error '424':
Object required
and highlights
.Range("A1").End(xlDown).Offset(1, 0).PasteSpecial xlPasteValues
Here is th entire code for the macro:
Application.DisplayAlerts = False
Sheets("Data Collector").Unprotect Password:="c"
Sheets("Session Archive").Unprotect Password:="c"
Sheets("Data Collector").Range("A2:AC2").Copy
Sheets("Session Archive").Select
Sheets("Session Archive").Range("A1").End(xlDown).Offset(1, 0).PasteSpecial xlPasteValues
Sheets("Calculator").Select
If Range("H32") = "DOM" Then
Workbooks.Open Filename:="C:\book2.xls"
With Sheets("DOM Award Tracking").Select
.Range("A1").End(xlDown).Offset(1, 0).PasteSpecial xlPasteValues
.CutCopyMode = False
.Close True
End With
Workbooks("C:\book1.xls).Activate
End If
Application.CutCopyMode = False
Sheets("Session Archive").Protect Password:="c", _
DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowSorting:=True
Sheets("Calculator").Select
Bookmarks