Manual pivot table creation

[yummy]

Below is the macro I recorded through excel

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Sheet1!R111C10:R510C10").CreatePivotTable TableDestination:="", TableName _
:="PivotTable2", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
With ActiveSheet.PivotTables("PivotTable2").PivotFields("Release Schedule")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable2").AddDataField ActiveSheet.PivotTables( _
"PivotTable2").PivotFields("Release Schedule"), "Count of Release Schedule", _
xlCount

I want to add row field and data fields in this table.
The header is Release Schedule which is located in cell J11 and the same field as data field.

Could you please help me to add these fields?

ALso I want to group by quarters and years. Would appreciate any help !