Maybe something like:

ActiveCell.Resize(4, 10).Copy Range("A1")
Dom