Error w/ Macro for PivotTable

[kbspence]

FinalRow Cells(Rows.Count, 1).End(xlUp).Row
DataSheet ActiveSheet.Name
Sheets.Add
NewSheet ActiveSheet.Name
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        DataSheet & "R1C1:R" & FinalRow &).CreatePivotTable TableDestination:= NewSheet &, TableName _
        :="PivotTable1", DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)

Compile error:
Sub or Function not defined

Please note, I'm new to this forum. I'd greatly appreciate any help.