Copying Data between Worksheets Using a Macro

Re. my previous comment below, I have discovered the expressions for LastNonBlankRow and LastNonBlankCol do not properly account for dynamic array formulas. Replace both instances of LookIn:=xlFormulas with LookIn:=xlValues to correct them.

Does Leonard want "the first empty row on the second worksheet" or the row below the last non-blank row?
Although poorly described in the Tip, rngTarget is intended to be the cell below the last non-blank cell in column A. A non-blank cell is one that contains data (constant or formula). But non-blank cells in hidden rows are ignored in this expression:
    iRow = Worksheets("Sheet2").Cells(Rows.Count,1).End(xlUp).Row + 1
Therefore, rngTarget might point to such a cell or even a blank cell above such a cell. (Formatted cells with no data are also ignored by that expression, which is probably appropriate.) At any rate, rngTarget is not necessarily the first cell of an empty row because it only considers column A. (The Tip resolves this by defining an empty row as "any row that doesn't have something in column A.")
Here is a better expression for the row below the last non-blank row:
    With Worksheets("Sheet2").UsedRange
        iRow = .Row + .Rows.Count
    End With
This also counts hidden rows (blank or non-blank) plus formatted cells with no data, so iRow will be below any of those (which might not be appropriate).
As stated above, a blank cell contains neither a formula nor a constant. (A cell containing a constant apostrophe or space character looks blank but is not.) Although Leonard is only interested in rows, here are several useful VBA expressions for both rows and columns:
    With ActiveSheet ' (assuming Leonard's "Sheet2" is active)
        With .UsedRange
            LastUsedRow = .Row - 1 + .Rows.Count
            LastUsedCol = .Column - 1 + .Columns.Count
        End With
        LastUsedCell = .Cells(LastUsedRow, LastUsedCol).Address
        Set R = .Cells.Find(What:="*", After:=.Cells(1), _
            LookAt:=xlPart, LookIn:=xlFormulas, MatchCase:=False, _
            SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
        If R Is Nothing Then LastNonBlankRow = 0 _
            Else LastNonBlankRow = R.Row
        Set R = .Cells.Find(What:="*", After:=.Cells(1), _
            LookAt:=xlPart, LookIn:=xlFormulas, MatchCase:=False, _
            SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)
        If R Is Nothing Then LastNonBlankCol = 0 _
            Else LastNonBlankCol = R.Column
        If LastNonBlankRow <> 0 And LastNonBlankCol <> 0 Then _
            LastNonBlankCell = _
                .Cells(LastNonBlankRow, LastNonBlankCol).Address
    End With
LastUsed... and LastNonBlank... expressions count cells (including hidden cells) that contain a formula or a constant.
LastUsed... expressions also count formatted cells that are blank. But if you select and format an entire blank row (like $15:$15) or blank column (like $H:$H), this does not imply that all blank cells in that row or column are counted; they are not. The actual result is as if only the first cell in the blank row or column was formatted; i.e., the blank row or column is considered used, but not all blank cells in that row or column.
LastUsedRow includes blank resized rows, but LastUsedCol does not include blank resized columns.
LastUsedRow includes blank hidden rows, but not after unhidden.
LastUsedCol includes blank hidden columns only if they were resized or adjacent to a resized column or a non-blank or formatted cell before hidden; in this case, they continue to be counted after unhidden until the workbook is closed and reopened. But if they remain hidden when the workbook is closed, they will be counted when the workbook is reopened.
If all cells are blank, LastUsedCell is "$A$1" and LastNonBlankCell is "" (default null string). Ctrl+End jumps to LastUsedCell.
LastNonBlank... expressions exclude blank cells even if hidden, formatted, or resized.
Considering all of the above, the best expression for Leonard's iRow might be
    iRow = LastNonBlankRow + 1
However, this could be a blank row that is hidden. To make sure iRow is unhidden:
    Worksheets("Sheet2").Rows(iRow).Hidden = False