Bu kodu da deneyebilirsiniz...

Dim xlSht As Worksheet
Dim iRw As Integer
Dim myRng As Range

Set xlSht = ActiveWorkbook.Worksheets("SheetName")

With xlSht
iRw = .Range("E" & .Rows.Count).End(xlUp).Row + 1
Set myRng = .Range("E4:R4")
With myRng
xlSht.Range("E" & iRw).Resize(.Rows.Count, .Columns.Count).Cells.Value2 = .Cells.Value2
End With
End With

Set xlSht = Nothing
Set myRng = Nothing