With a few minor modifications on my part, the following macro was provided
to me by Tom Ogilvy and Ron de Bruin (thanks again, worked great until I
ventured off onto my own!). Doesn't it figure that with my minor
modifications, when I run the macro I get #REF errors?

The current macro is as follows:

Sub CopyClosingData()
Dim i As Long, rng As Range, sh As Worksheet
Worksheets.Add(After:=Worksheets( _
Worksheets.Count)).Name = "ClosingData"
Set sh = Worksheets("Input - Closings")
i = 12
Do While Not IsEmpty(sh.Cells(i, 1))
Set rng = Union(sh.Cells(i, 1), _
sh.Cells(i + 1, 1).Resize(2, 1))
rng.EntireRow.Copy Destination:= _
Worksheets("ClosingData").Cells(Rows.Count, 1).End(xlUp)(2)
i = i + 12
Loop
End Sub

The spreadsheet I am copying from has a lot of links and formulas in it and
I was wondering if the #REF errors I am getting are because I need to copy
and paste values? I've tried and failed to come up with the correct code to
add to test this and was wondering if anyone could guide me with the code
needed to see if that is the issue.

TIA.
HJ