Sub Title(Beg)
   With Worksheets("Шапка").UsedRange
      Beg = .Rows.Count
      .Copy Sheets("Результат").Range("A1")
   End With
End Sub

Sub Title(Beg)
    With Worksheets("Шапка").UsedRange
        Beg = .Rows.Count
        .Copy Sheets("Результат").Range("A1")
    End With

    Dim i As Integer
    For i = 1 To Worksheets("Шапка").UsedRange.Columns.Count
        Worksheets("Результат").Columns(i).ColumnWidth = Worksheets("Шапка").UsedRange.Columns(i).ColumnWidth
    Next
End Sub

Sub Title(Beg)
    Dim rHead As Range    ' Область источник
    Set rHead = Worksheets("Шапка").UsedRange
    Dim rResult As Range  ' Область получатель
    Set rResult = Sheets("Результат").Range("A1")

    Beg = rHead.Rows.Count
    rHead.Copy rResult

    ' Без этого тоже будет работать, но так корректнее...
    Set rResult = rResult.Resize(rHead.Rows.Count, rHead.Columns.Count)

    ' Выставляем ширину колонок для области получателя
    Dim i As Integer
    For i = 1 To rHead.Columns.Count
        rResult.Columns(i).ColumnWidth = rHead.Columns(i).ColumnWidth
    Next

    ' А если надо, то и высоту строк...
    For i = 1 To rHead.Rows.Count
        rResult.Rows(i).RowHeight = rHead.Rows(i).RowHeight
    Next
End Sub