Range has a Copy method on it, so to copy a range you can just do:
Sub Macro1() Range("A1:I1").CopyEnd Sub