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