This blah macro is meant to copy from the active sheet to a new sheet that it will create: 
Sub blah()
Dim rngToCopy As Range
'Application.CopyObjectsWithCells = True 'if images don't copy over try including this line.
areaCount = 0
Set mySht = ActiveSheet
Set NewSht = Sheets.Add(after:=Sheets(Sheets.Count))
Set Destn = NewSht.Range("A1")
For Each are In mySht.Cells.SpecialCells(xlCellTypeConstants, 7).Areas
  areaCount = areaCount + 1
  Set rngToCopy = Range(mySht.Cells(1, are.Columns(1).Column), are.Cells(are.Cells.Count))
  CopyRowHeigths Destn.Resize(rngToCopy.Rows.Count, rngToCopy.Columns.Count), rngToCopy
  maxRow = Application.Max(maxRow, rngToCopy.Rows.Count)
  rngToCopy.Copy
  Destn.PasteSpecial xlPasteColumnWidths
  rngToCopy.Copy Destn
  If Application.IsOdd(areaCount) Then
    Set Destn = Destn.Offset(, rngToCopy.Columns.Count)
  Else
    Set Destn = NewSht.Cells(Destn.Row + maxRow, "A")
    maxRow = 0
  End If
Next are
End Sub

Private Sub CopyRowHeigths(TargetRange As Range, SourceRange As Range)
Dim r As Long
    With SourceRange
        For r = 1 To .Rows.Count
            TargetRange.Rows(r).RowHeight = .Rows(r).RowHeight
        Next r
    End With
End Sub