Excel 2010 :: Using LastRow With Ranges?

I am using Excel 2010. I created a macro to fill a report. Each section of the report is a department, each department has 53-55 (I forget the exact number) lines underneath the department number. So in the macro, for each department I am trying to use the code block

Code:

If Not IsNothing Then
If WorksheetFunction.CountA(Cells) > 0 Then
LastRow = Range("D60:D114").End(xlUp).Row

[Code]....

The font in red is the variable range. The first department has Range("D58").End(xlUp).Row for example. When I run the second department, it finds the empty cell under the first department's section. For example: I go to run the second department with the range of D60:D114, the cell that is selected by the "Address = "portion of the code is D10, because D4-9 has information in it.

What I need is for it to see that D60 (or D61, etc) is empty and paste the copied information into that cell. I am trying to find a way to do this without using "If cell D60 > 0 Then Activecell.Offset(1,0)", because this is a yearly report being filled in every week.