Excel 2007 - Excel VBA - Copy Formula Across

[ajay_gajree]

[TABLE="width: 508"]
<TBODY>[TR]
[TD]Name</SPAN>[/TD]
[TD="align: right"]01/06/2015</SPAN>[/TD]
[TD="align: right"]02/06/2015</SPAN>[/TD]
[TD="align: right"]03/06/2015</SPAN>[/TD]
[TD="align: right"]04/06/2015</SPAN>[/TD]
[TD="align: right"]05/06/2015</SPAN>[/TD]
[/TR]
[TR]
[TD]Peron1</SPAN>[/TD]
[TD][/TD]
[TD="align: right"]8</SPAN>[/TD]
[TD="align: right"]8</SPAN>[/TD]
[TD="align: right"]9</SPAN>[/TD]
[TD="align: right"]8</SPAN>[/TD]
[/TR]
[TR]
[TD]Peron2</SPAN>[/TD]
[TD="align: right"]8</SPAN>[/TD]
[TD="align: right"]8</SPAN>[/TD]
[TD="align: right"]9</SPAN>[/TD]
[TD="align: right"]9</SPAN>[/TD]
[TD="align: right"]8</SPAN>[/TD]
[/TR]
[TR]
[TD]Peron3</SPAN>[/TD]
[TD="align: right"]9</SPAN>[/TD]
[TD="align: right"]9</SPAN>[/TD]
[TD="align: right"]9</SPAN>[/TD]
[TD="align: right"]8</SPAN>[/TD]
[TD="align: right"]8</SPAN>[/TD]
[/TR]
[TR]
[TD]Peron4</SPAN>[/TD]
[TD="align: right"]7</SPAN>[/TD]
[TD="align: right"]8</SPAN>[/TD]
[TD="align: right"]9</SPAN>[/TD]
[TD="align: right"]8</SPAN>[/TD]
[TD="align: right"]5</SPAN>[/TD]
[/TR]
[TR]
[TD]Peron5</SPAN>[/TD]
[TD="align: right"]8</SPAN>[/TD]
[TD="align: right"]8</SPAN>[/TD]
[TD="align: right"]7</SPAN>[/TD]
[TD="align: right"]9</SPAN>[/TD]
[TD="align: right"]8</SPAN>[/TD]
[/TR]
[TR]
[TD]Peron6</SPAN>[/TD]
[TD="align: right"]8</SPAN>[/TD]
[TD="align: right"]8</SPAN>[/TD]
[TD="align: right"]8</SPAN>[/TD]
[TD="align: right"]8</SPAN>[/TD]
[TD="align: right"]8</SPAN>[/TD]
[/TR]
[TR]
[TD]Peron7</SPAN>[/TD]
[TD="align: right"]9</SPAN>[/TD]
[TD="align: right"]8</SPAN>[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Peron8</SPAN>[/TD]
[TD="align: right"]11</SPAN>[/TD]
[TD="align: right"]8</SPAN>[/TD]
[TD="align: right"]8</SPAN>[/TD]
[TD="align: right"]9</SPAN>[/TD]
[TD="align: right"]9</SPAN>[/TD]
[/TR]
[TR]
[TD]Peron9</SPAN>[/TD]
[TD="align: right"]8</SPAN>[/TD]
[TD="align: right"]9</SPAN>[/TD]
[TD="align: right"]8</SPAN>[/TD]
[TD="align: right"]8</SPAN>[/TD]
[TD="align: right"]8</SPAN>[/TD]
[/TR]
[TR]
[TD]Peron10</SPAN>[/TD]
[TD="align: right"]8</SPAN>[/TD]
[TD="align: right"]8</SPAN>[/TD]
[TD="align: right"]8</SPAN>[/TD]
[TD="align: right"]8</SPAN>[/TD]
[TD="align: right"]8</SPAN>[/TD]
[/TR]
[TR]
[TD]Peron11</SPAN>[/TD]
[TD="align: right"]9</SPAN>[/TD]
[TD="align: right"]8</SPAN>[/TD]
[TD="align: right"]7</SPAN>[/TD]
[TD="align: right"]8</SPAN>[/TD]
[TD="align: right"]8</SPAN>[/TD]
[/TR]
[TR]
[TD]Peron12</SPAN>[/TD]
[TD="align: right"]9</SPAN>[/TD]
[TD="align: right"]8</SPAN>[/TD]
[TD="align: right"]9</SPAN>[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Grand Total</SPAN>[/TD]
[TD="align: right"]92</SPAN>[/TD]
[TD="align: right"]97</SPAN>[/TD]
[TD="align: right"]88</SPAN>[/TD]
[TD="align: right"]83</SPAN>[/TD]
[TD="align: right"]78</SPAN>[/TD]
[/TR]
[TR]
[TD]Number of People</SPAN>[/TD]
[TD="align: right"][COLOR=#ff0000]11[/COLOR]</SPAN>[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</TBODY><COLGROUP><COL><COL span=5></COLGROUP>[/TABLE]

Set r = rngRebuild.Offset(0, 1)
Set rAbove = Range(r.Offset(-2, 0), Cells(4, r.Column))
    
 rngRebuild.Offset(0, 1).Formula = "=COUNTIF(" & rAbove.Address & ","">0"")"

For the above table, I use the above code to put a formula in the cell next to Number of People
The table is created is day and can be a different size each day.

From here, how would I fill the formula across to the last column in the table (Which can change each day)

Any help appreciated!