Copy Named Fields to Another Spreadsheet Blank Row

[03856me]

Hello All....I have been searching for a while and have found bits and pieces of code I want but nothing that works so far. If someone could point me to a thread that would do this that would be great. I have really familar with UserForms and copying data to blank rows which is what I want here.

I two sheets, Register and Template. The Template contains named fields that I want dump to the next blank row in the Register table when Macro is launched. There are approximately 40 data fields to dump including checkbox values. Here is what I have so far, just testing, then I willl add other fields:

Sub AddData1()
Dim iRow As Long
Dim WS As Worksheet
Set WS = Worksheets("Register")
iRow = WS.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row

WS.Cells(iRow, 1).Value = ActiveSheet.PurchaseOrder.Value
WS.Cells(iRow, 2).Value = ActiveSheet.EffectiveDate.Value
WS.Cells(iRow, 3).Value = ActiveSheet.TerminationDate.Value
WS.Cells(iRow, 4).Value = ActiveSheet.LogBrand.Value
WS.Cells(iRow, 5).Value = ActiveSheet.OwnerName.Value
WS.Cells(iRow, 6).Value = ActiveSheet.LoggerName.Value
End Sub

The error I am getting is: Object doesn't support this property or method, so I am thinking the way I do it on a userform won't work here.

Desparately needing your help!