Hi All, (bit of a lurker me).

So ive been building a new spreadsheet that looks into column G, sees if there is a Yes or No and populates a new sheet(s). It all works..fantastic.

However The formatting is all over the place. Id like for it to maintain the formatting (cell size) primarily.

My code is
Sub Ground_Floor()
Dim lrow As Long
Dim i As Long
Dim sname As String

Application.ScreenUpdating = False

With Worksheets("Ground Level")
    lrow = .Range("G" & .Rows.Count).End(xlUp).Row
    For i = 2 To lrow
        sname = .Range("G" & i).Value
        If Not Evaluate("ISREF('" & sname & "'!A1)") Then
            Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = sname
            .Rows("1:1").Copy Worksheets(sname).Range("A1")
        End If
            .Rows(i & ":" & i).Copy Worksheets(sname).Range("A" & .Rows.Count).End(xlUp).Offset(1, 0)
    Next i
End With

Application.ScreenUpdating = True

End Sub
Any ideas?

My code/macro works perfectly, just not copying over the cell size meaning the table that is produced crops alot of information, requiring the user to resize it EVERY TIME