Pasting borders and formatting instead of just values

[ZEvans12]

Back again for a seemingly very easy problem that I cannot figure out.

Here is the area that is causing me problems.

                   ' Copy the file name into column header
                        Range("K1").Value = MyFiles(FNum)
                            
                    Set sourceRange = .Range(Cells(1, 11), Cells(X - 1, 14))
                    
                End With

                    If rnum + SourceRcount >= BaseWks.Rows.Count Then
                        MsgBox "There are not enough rows in the target worksheet."
                        BaseWks.Columns.AutoFit
                        mybook.Close savechanges:=False
                        GoTo ExitTheSub
                    Else

                        ' Set the destination range.
                        
                        Set destrange = BaseWks.Cells(1, Y)

                            
                        ' Copy the values from the source range
                        ' to the destination range.
                        With sourceRange
                            Set destrange = destrange. _
                                            Resize(.Rows.Count, .Columns.Count)
                        End With
                        
                        destrange.Value = sourceRange.Value
                        
                        rnum = rnum + SourceRcount

The part I am having trouble with is at the very end

destrange.Value = sourceRange.Value

I have specifically formatted the "sourceRange" area so that it looks neater when pasted into excel. However when I change that code to something along the lines of,

destrange.Value = sourceRange.PasteSpecial Paste:=xlPasteAll

I receive a syntax error, or an expected end message. If anyone could help with this problem, so that I can paste all the borders and everything else I would greatly appreciate it.

Thanks a lot,

Z