Create Multiple Sheets from Data in Range

Sub CityToSheet()
Dim lastrow As Long, LastCol As Integer, i As Long, iStart As Long, iEnd As Long
Dim ws As Worksheet
Application.ScreenUpdating = False
With Sheets("Master")
    lastrow = .Cells(Rows.Count, "A").End(xlUp).Row
    LastCol = .Cells(1, Columns.Count).End(xlToLeft).Column
    iStart = 2
    For i = 2 To lastrow
        If .Range("A" & i).Value <> .Range("A" & i + 1).Value Then
            iEnd = i
            Sheets.Add after:=Sheets(Sheets.Count)
            Set ws = ActiveSheet
            On Error Resume Next
            ws.Name = .Range("A" & iStart).Value
            On Error GoTo 0
            ws.Range(Cells(1, 1), Cells(1, LastCol)).Value = .Range(.Cells(1, 1), .Cells(1, LastCol)).Value
            .Range(.Cells(iStart, 1), .Cells(iEnd, LastCol)).Copy Destination:=ws.Range("A2")
            iStart = iEnd + 1
        End If
    Next i
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Sub test()

Dim lastrw As Long
lastrw = Cells(Rows.Count, 1).End(xlUp).Row

Dim wb As Workbook
Dim ws As Worksheet


cs = ActiveSheet.Name
j = ThisWorkbook.Sheets.Count
 
Set wb = ActiveWorkbook

For Each cell In Range(Cells(1, 1), Cells(lastrw, 1))
    x = cell.Value
    For Each ws In wb.Worksheets
        If ws.Name = x Then
        j = 0
            Sheets(cs).Activate
            cell.EntireRow.Copy
            ws.Activate
            cpy_rw = Cells(Rows.Count, 1).End(xlUp).Row
            Cells(cpy_rw + 1, 1).Select
            ActiveSheet.Paste
            Sheets(cs).Activate
        End If
    Next
    If j = 0 Then
        j = ThisWorkbook.Sheets.Count 'reset the counter
    Else
        'This section adds and moves the new sheet
        Sheets.Add
        ActiveSheet.Name = cell.Value
        j = ThisWorkbook.Sheets.Count 'reset the counter
        ActiveSheet.Move After:=Sheets(j)
        
        Sheets(cs).Activate
        cell.EntireRow.Copy
        Sheets(cell.Value).Activate
        cpy_rw = Cells(Rows.Count, 1).End(xlUp).Row
        Cells(cpy_rw + 1, 1).Select
        ActiveSheet.Paste
        Sheets(cs).Activate

    End If
    
Next


End Sub/[code]