Copying a variably sized range
Sub CopyCurrentRegion2() range("A1").CurrentRegion.Copy Sheets("Sheet2").range("A1") End Sub