Try this:
Sub CpyRows()
Sheets("Total").Rows("4:10").Copy Range("A11")
End Sub

" wrote:

I am tring to write a Macro in Excel 2002 that will Copy info from 7 rows and
then past in the next 7 rows but I want the the 7 rows to change depending on
the date. How do I do this?

This is what I did but if I rerun the macro it will contine to selet the row
4-10

Sheets("Total").Select
ActiveWindow.SmallScroll Down:=-12
Rows("4:10").Select
Selection.Copy
Range("A11").Select
ActiveSheet.Paste