Macros for Copy, paste and Cut, paste

Sunil

Try this instead (main changes in bold):

Option Explicit

Sub Macro13()
'
' Macro13 Macro
'
' Keyboard Shortcut: Ctrl+Shift+R
'
Dim LstRw As Long, RepLst As Long 'variable for last in Sheet 1 and Report


With Sheets("Report")
    'Delete 4 rows after row 2 in Report first:
    .Range("A3:A6").EntireRow.Delete

    RepLst = WorksheetFunction.Max(.Range("A" & .Rows.Count).End(xlUp).Row, 3) 'pick row 3 or more

    ' copy from Sheet 1
    Sheets("Sheet1").Range("A3:C6").Copy

    ' paste the same rows in Report
    .Range("A" & (RepLst + 1)).PasteSpecial

    ' cut some cells then paste at start
    .Range("A7:C38").Cut Destination:=.Range("A3")

    Application.CutCopyMode = False

End With

'MsgBox "Data added to Report"

ActiveWorkbook.Save

End Sub

but note that the Cut method may create a gap in your data. You could use this line instead: 

 ' cut all cells then paste at start

    .Range("A7:C" & RepLst).Cut Destination:=.Range("A3")

but don't forget to recalculate RepLast (last row) before using that line.

Seems to me that your code is doing somewhat contradictory thing (I assume you are playing) but you could add shift the data by doing gthis:1) delete the four rows 2) calculate the last row, RepLast then 3) paste the four new rows from sheet 1 after that.

.Range("A7:C" & RepLst).Cut Destination:=.Range("A3")