select & copy some range and past it to another sheet with sum

Hi every body
I have woksheet which contain sheet1 & sheet2
my data are in sheet1 and i want have my result in sheet2
and I want to do below steps by VB
could you please tell how I can do this ?

for exaple sheet1 have data like this :
from a to h for each column(it is no matter what is it number or alphabet )
from 2 to 500 for each row

1. select each 20 rows from sheet1(which is not null) and copy it to sheet2
2. sum the column e for this data(20 rows in sheet2) and show it end of the 21 rows
3. repeat these steps to the end of my data in sheet1 and show the result in sheet2 with sum of E for each 20 rows below that

thanks alot for your advise

Your post does not comply with Rule 1 of our Forum RULES. Your post title should accurately and concisely describe your problem, not your anticipated solution. Use terms appropriate to a Google search. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will be addressed according to the OP's experience in the forum: If you have less than 10 posts, expect (and respond to) a request to change your thread title. If you have 10 or more posts, expect your post to be locked, so you can start a new thread with an appropriate title.
To change a Title on your post, click EDIT then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.

Can you upload example workbook how your data look like and how it should look at the end (sheet2)?

To best describe or illustrate your problem you would be better off attaching a dummy workbook. The workbook should contain the same structure and some dummy data of the same type as the type you have in your real workbook - so, if a cell contains numbers & letters in this format abc-123 then that should be reflected in the dummy workbook.

To attach a file to your post, you need to be using the main 'New Post' or 'New Thread' page and not 'Quick Reply'.
To use the main 'New Post' page, click the 'Post Reply' button in the relevant thread.


On this page, below the message box, you will find a button labelled 'Manage Attachments'.
Clicking this button will open a new window for uploading attachments.


You can upload an attachment either from your computer or from another URL by using the appropriate box on this page.
Alternatively you can click the Attachment Icon to open this page.


To upload a file from your computer, click the 'Browse' button and locate the file.


To upload a file from another URL, enter the full URL for the file in the second box on this page.
Once you have completed one of the boxes, click 'Upload'.


Once the upload is completed the file name will appear below the input boxes in this window.
You can then close the window to return to the new post screen.[COLOR="Silver"]

Try this:

Sub Payment()
Dim rng As Range, sumrng As Range
Dim r As Integer

r = 20 'Chnage 20 to desired number of rows

Sheets("Sheet1").Copy after:=Sheets("Sheet1")
With ActiveSheet
Columns("D:D").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Set rng = Range("D2")
    While rng.Value <> ""
        rng.Offset(r).EntireRow.Insert
        rng.Offset(r, -2) = "SUM"
        Set sumrng = .Range(.Cells(rng.Row, 4), .Cells(rng.Row + r - 1, 4))
        rng.Offset(r) = Application.WorksheetFunction.Sum(sumrng)
        Set sumrng = .Range(.Cells(rng.Row, 5), .Cells(rng.Row + r - 1, 5))
        rng.Offset(r, 1) = Application.WorksheetFunction.Sum(sumrng)
        Set rng = rng.Offset(r + 1)
        Range(.Cells(rng.Row - 1, 1), .Cells(rng.Row - 1, 6)).Interior.ColorIndex = 38
    Wend
End With
Columns("D:D").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub