Sub CopyCurrentRegion2() Range("A1").CurrentRegion.Copy Sheets("Sheet1").Range("A1") Application.CutCopyMode = FalseEnd Sub