Sub Dates()
If Worksheets("Inductions Update Page").Range("c8") < "" Then
Worksheets("Print & Shading Page").Range("C8") = _
Worksheets("Induction Frequency Page").Range("C8") + _
Worksheets("Inductions Update Page").Range("C8")
Else
Worksheets("Induction Update Page").Range("C9") = ""
End If
If Worksheets("Inductions Update Page").Range("c9") < "" Then
Worksheets("Print & Shading Page").Range("C9") = _
Worksheets("Induction Frequency Page").Range("C9") + _
Worksheets("Inductions Update Page").Range("C9")
Else
Worksheets("Induction Update Page").Range("C9") = ""
End If

End Sub

I need to do the above coding to all cells the the range of (C8:R30)

Is there an easier way other than how i have began, that being each step range changed to the next cell?


Corey....