VB Run Time Error 1004

I have a simple, but lengthy, spreadsheet that has 47 different worksheets. I have setup a worksheet with a template on it. I have written a Macro to copy that template into the current worksheet. It works great, the first time. The second time I get an "Run Time Error 1004: Paste method of worksheet class failed." I am new to VB. Can someone tell me why I get this? Below is the code I use. Thank you,
Rick


Sub AddSheetState()
' Macro recorded 2/27/2003 by rwillson
' DWQ Bay Area Water Quality State
Sheets("state recopy").Visible = True
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("state recopy").Select
ActiveWindow.SmallScroll Down:=-18
Rows("1:20").Select
Selection.Copy
Sheets("state recopy").Visible = False
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Bay Area Water Qlty State").Select
ActiveSheet.Unprotect ("cas")
Range("L1").Select
Selection.End(xlDown).Select
Selection.End(xlToLeft).Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=6
Range("L1").Select
Selection.End(xlDown).Select
Selection.End(xlToLeft).Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(-18, 0).Select
ActiveCell.Offset(0, 1).Select
ActiveSheet.Protect ("cas")
End Sub

Try unprotecting the "Bay Area Water Qlty State" sheet first before doing anything else.

Sub AddSheetState()
' Macro recorded 2/27/2003 by rwillson
' DWQ Bay Area Water Quality State

'Unprotect sheet first.
Sheets("Bay Area Water Qlty State" ).Unprotect ("cas" )

Sheets("state recopy" ).Visible = True
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("state recopy" ).Select
ActiveWindow.SmallScroll Down:=-18
Rows("1:20" ).Select
Selection.Copy
Sheets("state recopy" ).Visible = False
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Bay Area Water Qlty State" ).Select
Range("L1" ).Select
Selection.End(xlDown).Select
Selection.End(xlToLeft).Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=6
Range("L1" ).Select
Selection.End(xlDown).Select
Selection.End(xlToLeft).Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(-18, 0).Select
ActiveCell.Offset(0, 1).Select
ActiveSheet.Protect ("cas" )
End Sub

Thank you Maddog 1978! That seems to work perfectly! :rolleyes: