Transfer to Sheets Macro..Need Help

Hello Everybody i have the following macro that searches a column and then transfers that row to the correct sheet and place it in the first available row. Right now it separates into the correct sheets and finds the first available row. The problem I have is that i already have a format set up on each individual page and I'm just trying to get the first 6 columns A-F to copy from the one sheet to the correct sheet without wiping out the format I already have setup on the other pages. Any help will be greatly appreciated.

Sub TransferToSheets()
Dim sh As Worksheet, lr As Long, rng As Range
lr = Sheets(1).Cells(Rows.Count, 6).End(xlUp).Row
Set rng = Sheets(1).Range("F2:F" & lr)
    For Each c In rng
        If c <> "" Then
            Set sh = Sheets(c.Value)
            c.EntireRow.Copy sh.Cells(Rows.Count, 1).End(xlUp)(2)
        End If
    Next
End Sub