One of several methods is to simply double up your quotes...

Range("A1").FormulaArray = "=IF(COUNTIF(INDEX(tbl,0,1),G$1)>ROW()-ROW(H$1),OFFSET(tbl,SMALL(IF(INDEX(tbl,0,1)=G$1,ROW(tbl)-CELL(""Row"",tbl)),ROW()-ROW(H$1)+1),1,1,1),"""")"