How post define formulas only if cells have a value

[Blockhead15]

Right now, my code (shown below) applies a formula to column D for all rows. Is there a way to only show the formula if column c <> blank?

A	B	C	D	E	F	G
					X99X_Females	X99X_Males
Section 1			Check	01-Jan-2014	01-Jan-2014	01-Jan-2014
A	Part A
	1	Part A		(657,905,844)	(126,690,984)	(531,214,860)
	2	Part B		722,544,257	139,138,212	583,406,045
	3	Subtotal	Check	64,638,413	64,638,413	64,638,413
B	Part B
	1	Part G	Check	64,638,413	64,638,413	64,638,413
	2	Part H		0	0	0
	3	Part I		0	0	0
	4	SubTotal	Check	64,638,413	64,638,413	64,638,413

Formula = "=if(sum(F8:xx8)<>E8,""Check"","""")"
Set Rng = Range("d8:xx" & lastr)
Rng.Cells(1, 3).Formula = Formula
Rng.Cells(1, 3).Copy

For i = 1 To lastr - 6
Rng.Cells(i, 1 + 1).PasteSpecial Paste:=xlPasteFormulas
Next i

 

[portews]

Put this as the line below the For statement:

If Not Isblank(Cells(i,3)) Then

And this before the Next statement;

End if

 

[Joe4]

Also, NEVER used reserved words like "Formula" as the name of variables (or procedures or functions). That cause errors and/or unexpected results, as Excel may not guess correctly which one you are referring to, especially in a statement like this!

Rng.Cells(1, 3).Formula = Formula

 

[Blockhead15]

Thanks @portews . For the VBA, I need to use IsEmpty but it worked the same way. @Joe4 - appreciate the comments. Cleaned up in my final version.