Transfer to Sheets Macro..Need Help

[trevor2524]

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

[Naveed Raza]

we would love to help you but you would need to add code-tags prior to doing so:

Your post does not comply with Rule *3* of our Forum RULES (http://www.excelforum.com/forum-rule...rum-rules.html). *Use code tags around code.*

Posting code between tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

[JOHN H. DAVIS]

Maybe:

Sub trevor2524z()
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)
            Range(c.Offset(, -5), c).Copy sh.Cells(Rows.count, 1).End(xlUp)(2)
        End If
    Next
End Sub

[trevor2524]

Perfect... Thank you John...

[JOHN H. DAVIS]

You're welcome. Glad to help out, and thanks for the feedback.