Criar automaticamente planilhas e preencher dados da planilha mestre

Eu tenho uma folha samplecom os dados abaixo.

LOCATION    EMP_ID
INDIA       1234
INDIA       2345
INDIA       3456
USA         4567
USA         5678

Eu preciso criar planilhas automaticamente com base no local com o nome do local como folhas e preencher os dados em cada folha correspondente a esse local, incluindo o cabeçalho.

Eu tentei usar algum código de amostra com a ajuda de alguns sites. Eu posso criar folhas automaticamente sem cabeçalho e apenas 1 linha por folha. Se eu tiver mais de uma linha para cada local, isso gerará um erro.

Aqui está o código que eu tentei.

Sub CreateTabs()

Dim sheetCount As Integer
Dim sheetName As String
Dim workbookCount As Integer

With ActiveWorkbook
 sheetCount = Sheets("sample").Range("A2").End(xlDown).Row
 For i = 2 To sheetCount Step 1
 sheetName = .Sheets("sample").Range("A" & i).Value
 workbookCount = .Worksheets.Count
 .Sheets.Add After:=Sheets(workbookCount)
 .Sheets(i).Name = sheetName
 .Sheets(i).Range("A2:B2").Value = .Sheets("sample").Range("A" & i, "B" & i).Value
 Next
 End With

Worksheets("sample").Activate

End Sub

Aprecie sua ajuda nisso.

Infelizmente, você repetiu o nome da Planilha Exemplo India 3 vezes, seu código depois de criar a primeira planilha INDIA não verifica se ela é repetida, continua a criar a segunda INDIA ou qualquer local repetido, isso cria um erro para duplicar o nome da planilha e parar. Corrija seu código para verificar nomes, se já existirem, ou tente não repetir a localização