Select Single Cell After Paste Large Range

Option Explicit


Sub comp_CreateVPReport()
    Dim wbBook As Workbook
    Dim wbSource As Workbook
    Dim wbDest As Workbook
    Dim wsData As Worksheet
    Dim wsSrcPage As Worksheet
    Dim wsDestPage As Worksheet
    Dim sht As Worksheet
    Dim ws As Worksheet
    Dim rngSource As Range
    Dim rngData As Range
    Dim rngCrit As Range
    Dim rngDest As Range
    Dim lngRows As Long
    Dim lngSourceRows As Long
    Dim Msg As Long
    Dim lngResponse As Long
    Dim strSource As String
    Dim strDest As String
    Dim strPath As String
    Dim strDM As String
    Dim i As Integer
    
    With Application
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
        .DisplayAlerts = False
        .CutCopyMode = False
    End With


    strSource = "C:\Data\Monthly Report\Monthly_Report_Tmplt.xls"
    strDest = "C:\Data\Monthly Report\Monthly Report-VP.xls"
    strPath = "C:\Data\Monthly Report\"
    
    Set wbBook = ThisWorkbook
    Set wbSource = Application.Workbooks.Open(strSource)
    Set wbDest = Application.Workbooks.Open(strDest)
    Windows("Monthly Report-Process.xls").Activate
    
    'Part E - Uses Col E to determine range to copy


        'Sheet : Revenue Plan
            'Source Range
                Set wsSrcPage = wbSource.Worksheets("Revenue Plan")
                lngSourceRows = wsSrcPage.Range("E65536").End(xlUp).Row
                Set rngSource = wsSrcPage.Range("A5:G" & lngSourceRows)
                rngSource.Copy
            
            'Destination Range
                Set wsDestPage = wbDest.Worksheets("Revenue Plan")
                Set rngDest = wsDestPage.Range("A5")
                With rngDest
                    .PasteSpecial (xlPasteValuesAndNumberFormats)
                    .PasteSpecial (xlPasteFormats)
                    Application.CutCopyMode = False
                End With