VBA - Copy Range and Paste to new sheet, shifting Entire Rows down?
<p>I am trying to address the code highlighted in Bold, starting at "With ShNew." I take the range, copy columns A:B to LastRow, and insert them into a "Sh3" at the Last row. Sh3 last row is a Total row, everytime I run the code, it inserts the pasted data, but overwrites my total row (last row). I need to insert all the rows, and shift "Total" row down, and the ShiftXLDown, doesn't seem to work either.</p>

<pre><code>Dim R1 As Range, R2 As Range, Sh1 As Worksheet, Sh2 As Worksheet, ShNew As Worksheet, sh3 As Worksheet, c As Range
    Dim ct As Long, lstrow As Long, lstrow2 As Long
    Dim copyProjects As Range

    Set Sh1 = Sheets("Monthly Actuals")
    Set Sh2 = Sheets("Week 4 - Demand")
    Set sh3 = Sheets("Monthly Pacing Report by Week")
    Set R1 = Sh1.Range("D5:D" &amp; Sh1.Cells(Rows.Count, "D").End(xlUp).Row)
    Set R2 = Sh2.Range("A2:A" &amp; Sh2.Cells(Rows.Count, "A").End(xlUp).Row)


Application.ScreenUpdating = False
On Error Resume Next
Application.DisplayAlerts = False
Sheets("New Sheet").Delete
On Error GoTo 0
ActiveWorkbook.Worksheets.Add.Name = "New Sheet"
Set ShNew = Worksheets("New Sheet")
For Each c In R2
    If IsError(Application.Match(c.Value, R1, 0)) Then
        ct = ct + 1
        Sh2.Rows(c.Row).Copy ShNew.Rows(ct)
    End If
Next c

With sh3
lstrow = sh3.Range("A" &amp; Rows.Count).End(xlUp).Row - 1
.Range("A" &amp; lstrow).Insert Shift:=xlDown
End With

**With ShNew
lstrow2 = .Range("A" &amp; Rows.Count).End(xlUp).Row
Set copyProjects = .Range("A1:B" &amp; lstrow2)
copyProjects.Copy Destination:=sh3.Range("A" &amp; lstrow).Offset(1, 0)
End With**


With Application
    .DisplayAlerts = True
    .ScreenUpdating = True
End With
</code></pre>