Microsoft Office Forums - View Single Post - [Solved] Move Data from Master List to Sheets with City Name

jolivanes · 01-27-2016, 09:11 PM

Depending on the amount of data you have. If you have a lot, AutoFilter might be better.

Code:

Sub Maybe()
Dim c As Range
    For Each c In Range("C2:C" & Cells(Rows.Count, 3).End(xlUp).Row)
        c.Offset(, -2).Resize(, 4).Copy Sheets(c.Value).Cells(Rows.Count, 1).End(xlUp).Offset(1)
    Next c
End Sub