Maybe like this?
Option Explicit
Sub Macro1()
Dim rSource As Range, rDest As Range
Dim iColumn As Long
Set rSource = Worksheets("Data1").Cells(1, 1).CurrentRegion
Set rSource = rSource.Cells(1, 1).Resize(10, rSource.Parent.Columns.Count)
rSource.Copy
Worksheets("Data2").Cells(1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
Selection.PasteSpecial Paste:=xlPasteFormats
Set rDest = Worksheets("Data2").Cells(1, 1).CurrentRegion
For iColumn = 1 To rSource.Columns.Count
rDest.Columns(iColumn).ColumnWidth = rSource.Columns(iColumn).ColumnWidth
Next iColumn
End Sub
Paul