Have this so far:

Dim CellRng as String
CellRng = "C4"

PercentVal = Sheets("Sheet1").Range(CellRng).Value

***Now, how can I add 1 row to CellRng. It's in loop, and I want it to get
the value for C5 next time.