Opening an excel file in an existing excel + copying formats

[ferique]

I wrote a macro for opening an excel file in an existing excel. But i cant copying the formats.

Can anyone help me, how can i copy the formats? i guess, it's easy, but i can't do it.

It's really important:)

Sub Megnyit()

Dim mf1 As Workbook
Dim mf2 As Workbook
Dim mlap As Worksheet
Dim PasteStart As Range


Set mf1 = ActiveWorkbook
Set PasteStart = [1!A1]

Sheets("1").Select
    Cells.Select
    Selection.ClearContents
    
    

FileToOpen = Application.GetOpenFilename _
(Title:="Please choose a Report to Parse", _
FileFilter:="Report Files *.xls (*.xls),")

If FileToOpen = False Then
    MsgBox "Nincs fájl kiválasztva!", vbExclamation, "ERROR"
    Exit Sub
Else
    Set mf2 = Workbooks.Open(Filename:=FileToOpen)

    For Each mlap In mf2.Sheets
      With mlap.UsedRange
            .Copy PasteStart
            Set PasteStart = PasteStart.Offset(.Rows.Count)
           
        End With
    Next mlap

End If

    mf2.Close

End Sub